aboutsummaryrefslogtreecommitdiffstats
path: root/lib/AdminPanel/SettingsReader.pm
diff options
context:
space:
mode:
authorAngelo Naselli <anaselli@linux.it>2015-03-16 19:20:40 +0100
committerAngelo Naselli <anaselli@linux.it>2015-03-16 19:20:40 +0100
commitb4e446c21e299af0441ec44db7a86334980b77c2 (patch)
treeea17c359431cb9e10aeed60346cb7b5a2c7af19d /lib/AdminPanel/SettingsReader.pm
parentfc9772f1f03684e8dab50ff77d2c46c5e0309c7b (diff)
downloadcolin-keep-b4e446c21e299af0441ec44db7a86334980b77c2.tar
colin-keep-b4e446c21e299af0441ec44db7a86334980b77c2.tar.gz
colin-keep-b4e446c21e299af0441ec44db7a86334980b77c2.tar.bz2
colin-keep-b4e446c21e299af0441ec44db7a86334980b77c2.tar.xz
colin-keep-b4e446c21e299af0441ec44db7a86334980b77c2.zip
Moved the tree accordingly
Diffstat (limited to 'lib/AdminPanel/SettingsReader.pm')
-rw-r--r--lib/AdminPanel/SettingsReader.pm101
1 files changed, 0 insertions, 101 deletions
diff --git a/lib/AdminPanel/SettingsReader.pm b/lib/AdminPanel/SettingsReader.pm
deleted file mode 100644
index 318aefd..0000000
--- a/lib/AdminPanel/SettingsReader.pm
+++ /dev/null
@@ -1,101 +0,0 @@
-# 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;