X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FUtil.pm;h=9a34e0caae9386e9e246a445e7f7765acb6522bf;hp=4356daaafed49ff30ee10dc2571f2f78772870c2;hb=034587d897c53d4df84085a9229334bd2d51f1c6;hpb=fc8628e3caca3f21818dc6b9e1541c92767ffb57 diff --git a/lib/Mouse/Util.pm b/lib/Mouse/Util.pm index 4356daa..9a34e0c 100644 --- a/lib/Mouse/Util.pm +++ b/lib/Mouse/Util.pm @@ -30,9 +30,10 @@ 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, ); # aliases as public APIs @@ -281,6 +282,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"); @@ -349,6 +351,10 @@ __END__ Mouse::Util - Features, with or without their dependencies +=head1 VERSION + +This document describes Mouse version 0.40 + =head1 IMPLEMENTATIONS FOR =head2 Moose::Util