Mercurial > pub > Impl
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; |