use Class::MOP;
use Scalar::Util 'blessed', 'looks_like_number';
-our $VERSION = '0.72_01';
+our $VERSION = '0.73_01';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
}
sub RoleName {
- ClassName($_[0])
- && (($_[0]->can('meta') || return)->($_[0]) || return)->isa('Moose::Meta::Role')
+ ClassName($_[0])
+ && (Class::MOP::class_of($_[0]) || return)->isa('Moose::Meta::Role')
}
# NOTE: