X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FMeta%2FMethod%2FConstructor.pm;h=24a2b3c5ab3330c332ff1f911ac86b315f507e0b;hp=37e2505e1da5e4283f60ca4714535972397b61f8;hb=813197f336632fac08e61083b9ef3c8c46b0113b;hpb=daa8612f373bda7f7bc493af266535504d25307b diff --git a/lib/Mouse/Meta/Method/Constructor.pm b/lib/Mouse/Meta/Method/Constructor.pm index 37e2505..24a2b3c 100644 --- a/lib/Mouse/Meta/Method/Constructor.pm +++ b/lib/Mouse/Meta/Method/Constructor.pm @@ -170,7 +170,7 @@ sub _generate_BUILDALL { no warnings 'once'; for my $klass ($meta->linearized_isa) { if (*{ $klass . '::BUILD' }{CODE}) { - push @code, qq{${klass}::BUILD(\$instance, \$args);}; + unshift @code, qq{${klass}::BUILD(\$instance, \$args);}; } } return join "\n", @code;