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;