use_ok('Moose::Util::TypeConstraints', (':no_export'));
}
-*find_type_constraint = \&Moose::Util::TypeConstraints::find_type_constraint;
-
foreach my $type_name (qw(
Any
Value
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