5 use Test::More tests => 6;
7 use Mouse::Util::TypeConstraints;
15 isa => 'My::New::Class | Str',
18 my $t = Foo->meta->get_attribute('my_class')->type_constraint;
21 package My::New::Class;
23 package My::New::DerivedClass;
25 extends 'My::New::Class';
28 isa_ok $t, 'Mouse::Meta::TypeConstraint';
29 ok $t->check(My::New::Class->new);
30 ok $t->check(My::New::DerivedClass->new);
33 ok!$t->check(bless {}, 'Foo');