y $test_service1a = $c->get('test_service1a');
isa_ok($test_service1a, 'My::Test1');
isnt($test_service1a, $c->get('test_service1a'), '... and if I get it again, it is not the same one');
y $test_service2a = $c->get('test_service2a');
isa_ok($test_service2a, 'My::Test2');
isnt($test_service2a, $c->get('test_service2a'), '... and if I get it again, it is not the same one');
isa_ok($logger2, 'Logger');
isa_ok($logger2->{file}, 'File');
isnt($logger, $logger2, '... these are prototypes, not constructors');
isnt($logger->{file}, $logger2->{file}, '... these are prototypes,
my $test_service2 = $c->get('test_service2');
isa_ok($test_service2, 'My::Test2');
isnt($test_service2, $c->get('test_service2'), '... and if I get it again, it is not the same one');
instance, 'Logger');
my $instance2 = $service->instance();
isa_ok($instance2, 'Logger');
isnt($instance, $instance2, '... these are not the same instances');
one and make sure
# it too can do all that the original
# can do.
my $proxy2 = $proxy->new();
isnt($proxy, $proxy2, '... they are not the same instance');
isa_ok($proxy2, 'Base::Three::_::Proxy')
my $logger2 = $service->instance('logger');
isa_ok($logger2, 'Logger');
isnt($logger, $logger2, '... each logger instance is the same');
}
cmp_ok($Logger::DESTRO