use Test::Exception;
BEGIN {
- use_ok('Moose::Util::TypeConstraints', { into => 'Foo' } );
+ use_ok( 'Moose::Util::TypeConstraints', { into => 'Foo' } );
}
{
+
package Foo;
- eval {
- type MyRef => where { ref($_) };
- };
- ::ok(!$@, '... successfully exported &type to Foo package');
-
- eval {
- subtype MyArrayRef
- => as MyRef
- => where { ref($_) eq 'ARRAY' };
- };
- ::ok(!$@, '... successfully exported &subtype to Foo package');
-
- Moose::Util::TypeConstraints->export_type_constraints_as_functions();
-
- ::ok(MyRef({}), '... Ref worked correctly');
- ::ok(MyArrayRef([]), '... ArrayRef worked correctly');
-}
\ No newline at end of file
+ eval {
+ type MyRef => where { ref($_) };
+ };
+ ::ok( !$@, '... successfully exported &type to Foo package' );
+
+ eval {
+ subtype MyArrayRef => as MyRef => where { ref($_) eq 'ARRAY' };
+ };
+ ::ok( !$@, '... successfully exported &subtype to Foo package' );
+
+ Moose::Util::TypeConstraints->export_type_constraints_as_functions();
+
+ ::ok( MyRef( {} ), '... Ref worked correctly' );
+ ::ok( MyArrayRef( [] ), '... ArrayRef worked correctly' );
+}