switched to Sub::Exporter
[gitmo/MooseX-Types.git] / t / lib / TestLibrary.pm
index 53b01de..1799e03 100644 (file)
@@ -2,9 +2,9 @@ package TestLibrary;
 use warnings;
 use strict;
 
-use MooseX::TypeLibrary::Moose qw( Str ArrayRef Int );
-use MooseX::TypeLibrary
-    -declare => [qw( NonEmptyStr IntArrayRef TwentyThree )];
+use MooseX::Types::Moose qw( Str ArrayRef Int );
+use MooseX::Types
+    -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;