# Because Mouse::Util is loaded first in all the Mouse sub-modules,
# XS loader is placed here, not in Mouse.pm.
- our $VERSION = '0.40';
+ our $VERSION = '0.40_01';
my $need_pp = !!$ENV{MOUSE_PUREPERL};
require XSLoader;
XSLoader::load('Mouse', $VERSION);
};
- warn $@ if $@; # for DEBUGGING
+ #warn $@ if $@;
}
if($need_pp){
get_code_info
get_code_package
+ get_code_ref
not_supported
my $role_name = $roles[-1][0];
load_class($role_name);
- my $metarole = get_metaclass_by_name($role_name);
- ( $metarole && $metarole->isa('Mouse::Meta::Role') )
+ Mouse::Util::TypeConstraints::_is_a_metarole( get_metaclass_by_name($role_name) )
|| $applicant->meta->throw_error("You can only consume roles, $role_name(".$role_name->meta.") is not a Mouse role");
}
=head1 VERSION
-This document describes Mouse version 0.40
+This document describes Mouse version 0.40_01
=head1 IMPLEMENTATIONS FOR