aboutsummaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
authorAngelo Naselli <angelo.naselli@softeco.it>2014-06-05 16:39:21 +0200
committerAngelo Naselli <angelo.naselli@softeco.it>2014-06-05 16:39:21 +0200
commitafe5d80530dc4121759bfb913ff6b57b44d25c47 (patch)
treea5d3bc0f1765078e7d70c80d157537d68243d9af /lib
parent4d681cdf22416834b2d5a0ac66bf274d2a9c429c (diff)
downloadmanatools-afe5d80530dc4121759bfb913ff6b57b44d25c47.tar
manatools-afe5d80530dc4121759bfb913ff6b57b44d25c47.tar.gz
manatools-afe5d80530dc4121759bfb913ff6b57b44d25c47.tar.bz2
manatools-afe5d80530dc4121759bfb913ff6b57b44d25c47.tar.xz
manatools-afe5d80530dc4121759bfb913ff6b57b44d25c47.zip
Poddified and module load test adde for AdminPanel::SettingsReader
Diffstat (limited to 'lib')
-rw-r--r--lib/AdminPanel/SettingsReader.pm99
1 files changed, 78 insertions, 21 deletions
diff --git a/lib/AdminPanel/SettingsReader.pm b/lib/AdminPanel/SettingsReader.pm
index d93ebd57..33099bd6 100644
--- a/lib/AdminPanel/SettingsReader.pm
+++ b/lib/AdminPanel/SettingsReader.pm
@@ -1,24 +1,58 @@
# vim: set et ts=4 sw=4:
-# Copyright 2012 Angelo Naselli
-#
-# This file is part of AdminPanel
-#
-# AdminPanel 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.
-#
-# AdminPanel 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 AdminPanel. If not, see <http://www.gnu.org/licenses/>.
-
-
-#Class SettingsReader
package AdminPanel::SettingsReader;
+#============================================================= -*-perl-*-
+
+=head1 NAME
+
+AdminPanel::SettingsReader - This module allows to load an XML configuration file
+
+=head1 SYNOPSIS
+
+ use AdminPanel::SettingsReader;
+
+ my $settings = new AdminPanel::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 AdminPanel::SettingsReader
+
+=head1 SEE ALSO
+
+ XML::Simple
+
+=head1 AUTHOR
+
+ Angelo Naselli <anaselli@linux.it>
+
+=head1 COPYRIGHT and LICENSE
+
+ Copyright (C) 2012-2014, Angelo Naselli.
+
+ This file is part of AdminPanel
+
+ AdminPanel 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.
+
+ AdminPanel 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 AdminPanel. If not, see <http://www.gnu.org/licenses/>.
+
+=head1 FUNCTIONS
+
+=cut
+
use strict;
use warnings;
@@ -26,15 +60,38 @@ 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 = {
my $settings = 0,
my $justToGetRidOfERROR = 0
};
bless $self, 'AdminPanel::SettingsReader';
-
+
+ die "File " . $fileName . " not found" if (! -e $fileName);
+
my $xml = new XML::Simple (KeyAttr=>[]);
$self->{settings} = $xml->XMLin($fileName);