5 use Test::More skip_all => 'suspending';
8 use Mouse::Util::TypeConstraints;
16 isa => 'My::New::Class | Str',
19 my $t = Foo->meta->get_attribute('my_class')->type_constraint;
22 package My::New::Class;
24 package My::New::DerivedClass;
26 extends 'My::New::Class';
29 isa_ok $t, 'Mouse::Meta::TypeConstraint';
30 ok $t->check(My::New::Class->new);
31 ok $t->check(My::New::DerivedClass->new);
34 ok!$t->check(bless {}, 'Foo');