view release on metacpan or  search on metacpan

t/048_array_deps.t  view on Meta::CPAN

    package Item;
    use Moose;

    has my_name => (is => 'ro');

    package ListOfItems;
    use Moose;

    sub as_string { join ',',map {$_->my_name} @{shift->items} }

    has 'items' => (is => 'ro', isa => 'ArrayRef');
}

{
    my $s = Bread::Board::ConstructorInjection->new(
        name => 'list_of_items',
        class => 'ListOfItems',
        dependencies => {
            items => [
                map {
                    Bread::Board::ConstructorInjection->new(