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->();
}