overloading for union constraints, more tests, some code cleanup

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

diff --git a/t/lib/DecoratorLibrary.pm b/t/lib/DecoratorLibrary.pm
index cac870a..c99c189 100644 (file)
--- a/t/lib/DecoratorLibrary.pm
+++ b/t/lib/DecoratorLibrary.pm
@@ -11,6 +11,7 @@ use MooseX::Types
         MyArrayRefInt02
         MyHashRefOfInts
         MyHashRefOfStr
+        StrOrArrayRef
     )];
 
 subtype MyArrayRefBase,
@@ -48,5 +49,7 @@ coerce MyArrayRefInt02,
     ### Can't do HashRef[ArrayRef] here, need to force precidence I guess???
     from HashRef([ArrayRef]),
     via {[ sort map { @$_ } values(%$_)] };
-    
+
+subtype StrOrArrayRef,
+    from Str|ArrayRef;
 1;