From: Stevan Little Date: Mon, 20 Mar 2006 21:36:22 +0000 (+0000) Subject: getting-there X-Git-Tag: 0_05~78 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5e8a24e6e262835d2e81f964ff39507d110523d2;p=gitmo%2FMoose.git getting-there --- diff --git a/t/053_util_find_type_constraint.t b/t/053_util_find_type_constraint.t index 00e584a..bd86bb0 100644 --- a/t/053_util_find_type_constraint.t +++ b/t/053_util_find_type_constraint.t @@ -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