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=ace0e28e520474209e7eec920cb4dfb880cd5c5c;hpb=3c55a7add803261dff0455caa04fc22d18817f18;p=gitmo%2FMoo.git diff --git a/lib/Method/Generate/BuildAll.pm b/lib/Method/Generate/BuildAll.pm index ace0e28..1d6b5ad 100644 --- a/lib/Method/Generate/BuildAll.pm +++ b/lib/Method/Generate/BuildAll.pm @@ -3,7 +3,6 @@ package Method::Generate::BuildAll; use strictures 1; use base qw(Moo::Object); use Sub::Quote; -use Moo::_mro; use Moo::_Utils; use B 'perlstring'; @@ -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; }