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