use warnings;
use Carp 'confess';
+use Scalar::Util 'blessed';
sub new {
my $class = shift;
my $checker = Mouse::TypeRegistry->optimized_constraints->{$type};
return $checker if $checker;
- confess "Unable to parse type constraint '$type'";
+ return sub { blessed($_) && blessed($_) eq $type };
}
sub verify_type_constraint {