X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FUtil.pm;h=635fdd714c22444c90147d983f3d059b62072a54;hp=4356daaafed49ff30ee10dc2571f2f78772870c2;hb=0126c27c413cb63f67e66e09b0fdfeb92117503a;hpb=8c9b95f269d4936aa47e2d787a27f398a1c87197 diff --git a/lib/Mouse/Util.pm b/lib/Mouse/Util.pm index 4356daa..635fdd7 100644 --- a/lib/Mouse/Util.pm +++ b/lib/Mouse/Util.pm @@ -30,6 +30,8 @@ Mouse::Exporter->setup_import_methods( )], groups => { default => [], # export no functions by default + + # The ':meta' group is 'use metaclass' for Mouse meta => [qw(does meta dump _MOUSE_VERBOSE)], }, _export_to_main => 1, @@ -281,6 +283,7 @@ sub apply_all_roles { } my $role_name = $roles[-1][0]; load_class($role_name); + my $metarole = get_metaclass_by_name($role_name); ( $metarole && $metarole->isa('Mouse::Meta::Role') ) || $applicant->meta->throw_error("You can only consume roles, $role_name(".$role_name->meta.") is not a Mouse role");