comparison Lib/IMPL/Config.pm @ 179:b3d91ff7aea9

minor changes
author sourcer
date Tue, 20 Dec 2011 23:00:30 +0300
parents b88b7fe60aa3
children d1676be8afcc
comparison
equal deleted inserted replaced
178:658a80d19d33 179:b3d91ff7aea9
90 1); 90 1);
91 } 91 }
92 92
93 sub spawn { 93 sub spawn {
94 my ($this,$file) = @_; 94 my ($this,$file) = @_;
95 unless ($file) {
96 ($file = ref $this || $this) =~ s/:+/./g;
97 $file .= ".xml";
98 }
95 return $this->LoadXMLFile( File::Spec->catfile($ConfigBase,$file) ); 99 return $this->LoadXMLFile( File::Spec->catfile($ConfigBase,$file) );
96 } 100 }
97 101
98 sub get { 102 sub get {
99 my $this = shift; 103 my $this = shift;