X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMoo.pm;h=98bc057c2ae1d3645fdb8a1fe9a5f7b675a4dd32;hb=76ab397705b93ed85e5e82597c930e72b44d2355;hp=470e681d3eb0f354f6ce465036887adca2a725a9;hpb=69feb0b8136566840a257a54a79bd8803e985d55;p=gitmo%2FMoo.git

diff --git a/lib/Moo.pm b/lib/Moo.pm
index 470e681..98bc057 100644
--- a/lib/Moo.pm
+++ b/lib/Moo.pm
@@ -91,8 +91,11 @@ sub _constructor_maker_for {
             ? ($con ? $con->construction_string : undef)
             : ('$class->'.$target.'::SUPER::new(@_)')
         ),
-        subconstructor_generator => (
-          $class.'->_constructor_maker_for($class,'.perlstring($target).')'
+        subconstructor_handler => (
+          '      if ($Moo::MAKERS{$class}) {'."\n"
+          .'        '.$class.'->_constructor_maker_for($class,'.perlstring($target).');'."\n"
+          .'        return $class->new(@_)'.";\n"
+          .'      }'."\n"
         ),
       )
       ->install_delayed