Creanup

[gitmo/Mouse.git] / lib / Mouse / Meta / Role.pm

diff --git a/lib/Mouse/Meta/Role.pm b/lib/Mouse/Meta/Role.pm
index ff0c439..403b781 100644 (file)
--- 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) = @_;