switched to Sub::Exporter

[gitmo/MooseX-Types.git] / t / lib / TestLibrary.pm

diff --git a/t/lib/TestLibrary.pm b/t/lib/TestLibrary.pm
index 2eb20dd..1799e03 100644 (file)
--- a/t/lib/TestLibrary.pm
+++ b/t/lib/TestLibrary.pm
@@ -4,7 +4,7 @@ use strict;
 
 use MooseX::Types::Moose qw( Str ArrayRef Int );
 use MooseX::Types
-    -declare => [qw( NonEmptyStr IntArrayRef TwentyThree )];
+    -declare => [qw( NonEmptyStr IntArrayRef TwentyThree Foo2Alias )];
 
 subtype NonEmptyStr,
     as Str,
@@ -29,4 +29,8 @@ subtype TwentyThree,
     where { $_ == 23 },
     message { 'Int is not 23' };
 
+subtype Foo2Alias,
+    as Str,
+    where { 1 };
+
 1;