use strict;
use warnings;
-use Test::More tests => 5;
-use Test::Exception;
-
-BEGIN {
- use_ok( 'Moose::Util::TypeConstraints', { into => 'Foo' } );
-}
+use Test::More;
{
-
package Foo;
+ use Moose::Util::TypeConstraints;
+
eval {
type MyRef => where { ref($_) };
};
::ok( MyRef( {} ), '... Ref worked correctly' );
::ok( MyArrayRef( [] ), '... ArrayRef worked correctly' );
}
+
+done_testing;