Move method so the definition comes after first use

diff --git a/lib/Moose/Meta/Role.pm b/lib/Moose/Meta/Role.pm
index 5cdd070..0fcfc40 100644 (file)
--- a/lib/Moose/Meta/Role.pm
+++ b/lib/Moose/Meta/Role.pm
@@ -446,11 +446,6 @@ sub apply {
     }
 }
 
-sub role_for_combination {
-    my ($self, $params) = @_;
-    return $self;
-}
-
 sub combine {
     my ($class, @role_specs) = @_;
 
@@ -477,6 +472,11 @@ sub combine {
     return $c;
 }
 
+sub role_for_combination {
+    my ($self, $params) = @_;
+    return $self;
+}
+
 sub create {
     my ( $role, $package_name, %options ) = @_;