package myConfig; ########################################################################### # Einfache Klasse zum zentralen Verwalten einer Konfiguration # Rolf Rost, 13.2.2011 ########################################################################### # Hash-Referenz der Konfigurationsdaten $cfg = { mysql => { host => 'localhost', port => 3306, base => 'Datenbankname', user => '', pass => '', }, ftp => { user => '', pass => '', host => '', }, mail => { from => 'otto@example.com', host => 'example.com' }, }; ########################################################################### use strict; require Exporter; use vars qw(@EXPORT_OK @ISA $cfg); @ISA = qw(Exporter); @EXPORT_OK = qw($cfg); sub new{ my $class = shift; return bless $cfg, $class; } ########################################################################### 1; ###########################################################################