6 use Test::More tests => 5;
10 use_ok('Moose::Util::TypeConstraints', ('Foo'));
17 type MyRef => where { ref($_) };
19 ::ok(!$@, '... successfully exported &type to Foo package');
24 => where { ref($_) eq 'ARRAY' };
26 ::ok(!$@, '... successfully exported &subtype to Foo package');
28 ::ok(MyRef({}), '... Ref worked correctly');
29 ::ok(MyArrayRef([]), '... ArrayRef worked correctly');