Mercurial > pub > Impl
comparison Lib/IMPL/Config.pm @ 204:d63f9a92d6d4
+IMPL::Config::Include - simple way to include external config
*IMPL::Web::Handler::TTView - finished template selecting mechanism (not tested)
| author | sergey |
|---|---|
| date | Wed, 02 May 2012 17:42:47 +0400 |
| parents | 4d0e1962161c |
| children | 891c04080658 |
comparison
equal
deleted
inserted
replaced
| 203:68a59c3358ff | 204:d63f9a92d6d4 |
|---|---|
| 14 | 14 |
| 15 use IMPL::Serialization; | 15 use IMPL::Serialization; |
| 16 use IMPL::Serialization::XmlFormatter; | 16 use IMPL::Serialization::XmlFormatter; |
| 17 | 17 |
| 18 our $ConfigBase ||= ''; | 18 our $ConfigBase ||= ''; |
| 19 our $AppBase; | |
| 19 | 20 |
| 20 sub LoadXMLFile { | 21 sub LoadXMLFile { |
| 21 my ($self,$file) = @_; | 22 my ($self,$file) = @_; |
| 22 | 23 |
| 23 my $class = ref $self || $self; | 24 my $class = ref $self || $self; |
| 116 return $this->SUPER::get(@_); | 117 return $this->SUPER::get(@_); |
| 117 } | 118 } |
| 118 | 119 |
| 119 sub Exists { | 120 sub Exists { |
| 120 $_[0]->SUPER::get($_[1]) ? 1 : 0; | 121 $_[0]->SUPER::get($_[1]) ? 1 : 0; |
| 122 } | |
| 123 | |
| 124 sub AppBase { | |
| 125 $AppBase | |
| 126 } | |
| 127 | |
| 128 sub ConfigBase { | |
| 129 $ConfigBase | |
| 121 } | 130 } |
| 122 | 131 |
| 123 1; | 132 1; |
| 124 __END__ | 133 __END__ |
| 125 | 134 |
