4 use Moose::Util::TypeConstraints qw(find_type_constraint);
18 my $o = TestClass->new;
20 foreach my $name (qw(TestClass TestRole)) {
21 ok !find_type_constraint($name), "No $name constraint created without Moose loaded";
26 foreach my $name (qw(TestClass TestRole)) {
27 my $tc = find_type_constraint($name);
28 isa_ok $tc, 'Moose::Meta::TypeConstraint', "$name constraint"
29 and ok $tc->check($o), "TestClass object passes $name constraint";