Commit | Line | Data |
b463fcad |
1 | package TestAppCustomContainer::Role::HoldsFoo; |
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', |
9 | # required => 1, |
b463fcad |
10 | ); |
11 | |
ced6f9e2 |
12 | sub BUILD {} |
13 | |
14 | after BUILD => sub { |
15 | my $self = shift; |
b32d8169 |
16 | ok($self->foo, ref($self) . " got a ->foo"); |
17 | isa_ok($self->foo, 'TestAppCustomContainer::Model::DefaultSetup', ref($self) . " isa 'TestAppCustomContainer::Model::DefaultSetup'"); |
ced6f9e2 |
18 | }; |
19 | |
b463fcad |
20 | 1; |