X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FMeta%2FRole.pm;h=403b78142f54cd59e09290cff9c66654702f6104;hp=ff0c439d7c8e5ed2a9096b32880e97e74e843d27;hb=afc73948d1c8d2f34ec6242a08945184d9bb4b75;hpb=a81cc7b83f688ff21284b599a81e14a44bcdf401

diff --git a/lib/Mouse/Meta/Role.pm b/lib/Mouse/Meta/Role.pm
index ff0c439..403b781 100644
--- a/lib/Mouse/Meta/Role.pm
+++ b/lib/Mouse/Meta/Role.pm
@@ -39,6 +39,9 @@ sub _new {
     bless \%args, $class;
 }
 
+sub get_roles { $_[0]->{roles} }
+
+
 sub add_required_methods {
     my $self = shift;
     my @methods = @_;
@@ -229,8 +232,6 @@ for my $modifier_type (qw/before after around override/) {
     *{ 'get_' . $modifier_type . '_method_modifiers' } = $get_method_modifiers;
 }
 
-sub get_roles { $_[0]->{roles} }
-
 # This is currently not passing all the Moose tests.
 sub does_role {
     my ($self, $role_name) = @_;