Mercurial > pub > Impl

comparison lib/IMPL/Config/Container.pm @ 418:3f38dabaf5cc ref20150831

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sync
author cin
date Mon, 28 Dec 2015 15:11:35 +0300
parents 3ed0c58e9da3
children bbc4739c4d48
comparison
equal deleted inserted replaced
417:3ed0c58e9da3 418:3f38dabaf5cc
4 use IMPL::Exception(); 4 use IMPL::Exception();
5 use IMPL::lang qw(:base); 5 use IMPL::lang qw(:base);
6 use IMPL::declare { 6 use IMPL::declare {
7 require => { 7 require => {
8 Descriptor => 'IMPL::Config::Descriptor', 8 Descriptor => 'IMPL::Config::Descriptor',
9 ValueDescriptor => 'IMPL::Config::ValueDescriptor',
10 ActivationContext => 'IMPL::Config::ActivationContext', 9 ActivationContext => 'IMPL::Config::ActivationContext',
11 Hierarchy => 'IMPL::Config::Hierarchy', 10 Hierarchy => 'IMPL::Config::Hierarchy',
12 Bag => 'IMPL::Config::Bag', 11 Bag => 'IMPL::Config::Bag',
13 Loader => 'IMPL::Code::Loader' 12 Loader => 'IMPL::Code::Loader'
14 }, 13 },
105 } 104 }
106 105
107 return \@result; 106 return \@result;
108 } 107 }
109 108
109 sub Configure {
110 my ($this, $config) = @_;
111
112 if (isarray($config)) {
113 $this->Configure($_) foreach @$config;
114 } elsif (ishash($config)) {
115
116 } else {
117 die IMPL::ArgumentException->new(config => 'Either a hash or an array is required');
118 }
119 }
120
121 sub ParseDescriptor {
122 my ($this, $data) = @_;
123
124 if ()
125 }
126
110 1; 127 1;
111 128
112 __END__ 129 __END__
113 130
114 =pod 131 =pod