From: Dave Rolsky <autarch@urth.org>
Date: Sun, 10 May 2009 04:28:45 +0000 (-0500)
Subject: Move method so the definition comes after first use
X-Git-Tag: 0.78~15
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=436d7a280efd1a65df197acefcc61b590a171f5d;p=gitmo%2FMoose.git

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
--- 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 ) = @_;