getting-there
Stevan Little [Mon, 20 Mar 2006 21:36:22 +0000 (21:36 +0000)]
t/053_util_find_type_constraint.t

index 00e584a..bd86bb0 100644 (file)
@@ -10,8 +10,6 @@ BEGIN {
        use_ok('Moose::Util::TypeConstraints', (':no_export'));
 }
 
-*find_type_constraint = \&Moose::Util::TypeConstraints::find_type_constraint;
-
 foreach my $type_name (qw(
     Any
         Value
@@ -25,5 +23,7 @@ foreach my $type_name (qw(
             RegexpRef
             Object    
     )) {
-    is(find_type_constraint($type_name)->name, $type_name, '... got the right name for ' . $type_name);
+    is(Moose::Util::TypeConstraints::find_type_constraint($type_name)->name, 
+       $type_name, 
+       '... got the right name for ' . $type_name);
 }
\ No newline at end of file