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; |
