Mercurial > pub > Impl
view _test/Test/Config/Container.pm @ 417:3ed0c58e9da3 ref20150831
working on di container, tests
author | cin |
---|---|
date | Mon, 02 Nov 2015 01:56:53 +0300 |
parents | |
children | 3f38dabaf5cc |
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(); }; sub RegisterServices { my $c1 = Container->new(); } 1;