package MooseX::Types::Util;
+our $VERSION = "0.22";
=head1 NAME
use warnings;
use strict;
+use Scalar::Util 'blessed';
use base 'Exporter';
or return undef;
return undef
- unless $sub->isa('MooseX::Types::EXPORTED_TYPE_CONSTRAINT');
+ unless blessed $sub && $sub->isa('MooseX::Types::EXPORTED_TYPE_CONSTRAINT');
return $sub->();
}