X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FUtil.pm;h=3d2276a8c2f82d4b23c58034987072f3ae3b6664;hb=61fcd0dad2a4b4bc1f616b95b9c162597098503a;hp=4356daaafed49ff30ee10dc2571f2f78772870c2;hpb=fc8628e3caca3f21818dc6b9e1541c92767ffb57;p=gitmo%2FMouse.git diff --git a/lib/Mouse/Util.pm b/lib/Mouse/Util.pm index 4356daa..3d2276a 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.39 + =head1 IMPLEMENTATIONS FOR =head2 Moose::Util