blob: 318aefd170510d2a1fbfa949bb54784caaa046a4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
# vim: set et ts=4 sw=4:
package ManaTools::SettingsReader;
#============================================================= -*-perl-*-
=head1 NAME
ManaTools::SettingsReader - This module allows to load an XML configuration file
=head1 SYNOPSIS
use ManaTools::SettingsReader;
my $settings = new ManaTools::SettingsReader($fileName);
=head1 DESCRIPTION
This module allows to load a configuration file returning a Hash references with its content.
=head1 SUPPORT
You can find documentation for this module with the perldoc command:
perldoc ManaTools::SettingsReader
=head1 SEE ALSO
XML::Simple
=head1 AUTHOR
Angelo Naselli <anaselli@linux.it>
=head1 COPYRIGHT and LICENSE
Copyright (C) 2012-2015, Angelo Naselli.
This file is part of ManaTools
ManaTools is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 2 of the License, or
(at your option) any later version.
ManaTools is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with ManaTools. If not, see <http://www.gnu.org/licenses/>.
=head1 FUNCTIONS
=cut
use strict;
use warnings;
use diagnostics;
use XML::Simple;
use Data::Dumper;
#=============================================================
=head2 new
=head3 INPUT
$fileName: File to be loaded
=head3 OUTPUT
$settings: Hash reference containing read settings
=head3 DESCRIPTION
The constructor just loads the given files and return its representation
into a hash reference.
=cut
#=============================================================
sub new {
my ($class, $fileName) = @_;
my $self = {
settings => 0,
};
bless $self, 'ManaTools::SettingsReader';
die "File " . $fileName . " not found" if (! -e $fileName);
my $xml = new XML::Simple (KeyAttr=>[]);
$self->{settings} = $xml->XMLin($fileName);
return $self->{settings};
}
1;
|
