updated changelog, removed pointly debugging stuff from tests

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

diff --git a/t/lib/DecoratorLibrary.pm b/t/lib/DecoratorLibrary.pm
index 180a959..0aef0cd 100644 (file)
--- a/t/lib/DecoratorLibrary.pm
+++ b/t/lib/DecoratorLibrary.pm
@@ -10,23 +10,9 @@ use MooseX::Types
         MyHashRefOfStr
         StrOrArrayRef
         AtLeastOneInt
+        Jobs
     )];
 
-## Some questionable messing around
-    sub my_subtype {
-        my ($subtype, $basetype, @rest) = @_;
-        return subtype($subtype, $basetype, shift @rest, shift @rest);
-    }
-    
-    sub my_from {
-        return @_;
-        
-    }
-    sub my_as {
-        return @_;
-    }
-## End
-
 subtype MyArrayRefBase,
     as ArrayRef;
     
@@ -68,5 +54,8 @@ subtype StrOrArrayRef,
 subtype AtLeastOneInt,
     as ArrayRef[Int],
     where { @$_ > 0 };
-
+    
+enum Jobs,
+    (qw/Programming Teaching Banking/);
+    
 1;