#!/usr/bin/perl use strict; use warnings; use Test::More; use Test::Moose; use Bread::Board; { package User; use Moose; has 'name' => ( is => 'ro', isa => 'Str' ); package Page; use Moose; has 'user' => ( is => 'ro', isa => 'User' ); } my $c = container 'Views' => as { service 'User' => ( block => sub { my $s = shift; '

' . $s->param('user')->name . '

'; }, parameters => { user => { isa => 'User' } } ); service 'Page' => ( block => sub { my $s = shift; '' . '' . $s->param('user_view')->inflate( user => $s->param('page')->user ) . '' . ''; }, dependencies => { user_view => depends_on('User') }, parameters => { page => { isa => 'Page' } } ); }; my $view = $c->fetch('Page')->get( page => Page->new( user => User->new( name => 'Stevan' ) ) ); is( $view, '

Stevan

', '... got the correct result' ); done_testing;