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 |