X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMethod%2FGenerate%2FBuildAll.pm;h=1d6b5adb78f3efaae1eb76f4b78f857f937ba779;hb=HEAD;hp=b3bb91c2304803e5a7a8e25f647eabe157433fbc;hpb=f82d15d54c8555d737817265412d8d98e0e027fa;p=gitmo%2FMoo.git

diff --git a/lib/Method/Generate/BuildAll.pm b/lib/Method/Generate/BuildAll.pm
index b3bb91c..1d6b5ad 100644
--- a/lib/Method/Generate/BuildAll.pm
+++ b/lib/Method/Generate/BuildAll.pm
@@ -3,16 +3,15 @@ package Method::Generate::BuildAll;
 use strictures 1;
 use base qw(Moo::Object);
 use Sub::Quote;
-use Moo::_mro;
 use Moo::_Utils;
 use B 'perlstring';
 
 sub generate_method {
   my ($self, $into) = @_;
   quote_sub "${into}::BUILDALL", join '',
-           $self->_handle_subbuild($into),
+    $self->_handle_subbuild($into),
     qq{    my \$self = shift;\n},
-           $self->buildall_body_for($into, '$self', '@_'),
+    $self->buildall_body_for($into, '$self', '@_'),
     qq{    return \$self\n};
 }
 
@@ -28,7 +27,7 @@ sub buildall_body_for {
   my @builds =
     grep *{_getglob($_)}{CODE},
     map "${_}::BUILD",
-    reverse @{mro::get_linear_isa($into)};
+    reverse @{Moo::_Utils::_get_linear_isa($into)};
   join '', map qq{    ${me}->${_}(${args});\n}, @builds;
 }