view release on metacpan or  search on metacpan

t/054_parameterized_backref.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use Test::More;
use Test::Fatal;

use Bread::Board;

my $c = container Foo => as {
    service fez => 123;

    container Bar => ['Baz'] => as {
        service moo => (
            block => sub {
                my ($s) = @_;
                $s->param('kooh') + $s->param('fez');
            },
            dependencies => {
                kooh => depends_on('Baz/boo'),
                fez  => depends_on('../fez'),
            },
        );
    };

    container Bif => as {
        service boo => 42;
    };
};

is $c->fetch('Bar')->create(Baz => $c->fetch('Bif'))->resolve(service => 'moo'), 165, 'container works as expected';

my $clone;
is exception { $clone = $c->clone }, undef, 'cloning the container does not throw an exception';

is $clone->fetch('Bar')->create(Baz => $clone->fetch('Bif'))->resolve(service => 'moo'), 165, 'can do parameterized backref from clone';

done_testing;