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