[catagits/Catalyst-Runtime.git] / t / lib / TestAppCustomContainer / Role / HoldsFoo.pm

package TestAppCustomContainer::Role::HoldsFoo;
use Moose::Role;
use Test::More;
use namespace::autoclean;

has foo => (
    is       => 'ro',
#    isa      => 'TestAppCustomContainer::Model::Foo',
#    required => 1,
);

sub BUILD {}

after BUILD => sub {
    my $self = shift;
    ok $self->foo;
    isa_ok($self->foo, 'TestAppCustomContainer::Model::DefaultSetup');
};

1;
Commit	Line	Data
b463fcad	1	package TestAppCustomContainer::Role::HoldsFoo;
b463fcad	2	use Moose::Role;
ced6f9e2	3	use Test::More;
b463fcad	4	use namespace::autoclean;
	5
	6	has foo => (
	7	is => 'ro',
ced6f9e2	8	# isa => 'TestAppCustomContainer::Model::Foo',
ced6f9e2	9	# required => 1,
b463fcad	10	);
b463fcad	11
ced6f9e2	12	sub BUILD {}
	13
	14	after BUILD => sub {
	15	my $self = shift;
	16	ok $self->foo;
	17	isa_ok($self->foo, 'TestAppCustomContainer::Model::DefaultSetup');
	18	};
	19
b463fcad	20	1;