Mercurial > pub > Impl
view _test/Test/Config/Container.pm @ 421:7798345304bc ref20150831
working on IMPL::Config, removed old stuff
author | cin |
---|---|
date | Sun, 16 Jul 2017 22:59:39 +0300 |
parents | 3f38dabaf5cc |
children | b0481c071bea |
line wrap: on
line source
package Test::Config::Container; use strict; { package Test::Config::Container::Baz; use IMPL::declare { base => { 'IMPL::Object' => undef }, props => [ value => 'r' ] }; sub CTOR { my $this = shift; $this->value(shift); } } use IMPL::declare { require => { Container => 'IMPL::Config::Container', }, base => { 'IMPL::Test::Unit' => '@_' } }; use IMPL::Test qw(test assert failed); test CreateContainer => sub { my $c1 = Container->new(); }; test RegisterServices => sub { my $c1 = Container->new(); $c1->Register( 'db' => Service->new( type => 'Foo::Data', norequire => 1, activation => 'container' )); return $c1; }; test ResolveServices => sub { }; 1;