3 use Test::More tests => 2;
4 use Mouse::Util::TypeConstraints;
6 subtype 'Foo', where => sub { $_->isa('A') };
11 has data => ( is => 'rw', isa => 'Str' );
17 has a => ( is => 'rw', isa => 'Foo', coerce => 1 );
20 isa_ok(B->new(a => A->new()), 'B');
21 B->meta->make_immutable;
22 isa_ok(B->new(a => A->new()), 'B');