From: Dave Rolsky <autarch@urth.org>
Date: Thu, 4 Dec 2008 21:21:31 +0000 (+0000)
Subject: If replace_constructor is true we do not check whether the constructor
X-Git-Tag: 0.71_02~15
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5d9ee40a1f7ab13b3d3c6a03ef903dee69c3c4ac;p=gitmo%2FClass-MOP.git

If replace_constructor is true we do not check whether the constructor
can be inlined.
---

diff --git a/lib/Class/MOP/Immutable.pm b/lib/Class/MOP/Immutable.pm
index 47e1bac..542c850 100644
--- a/lib/Class/MOP/Immutable.pm
+++ b/lib/Class/MOP/Immutable.pm
@@ -156,7 +156,7 @@ sub _inline_constructor {
     );
 
     $metaclass->add_method( $options->{constructor_name} => $constructor )
-        if $constructor->can_be_inlined;
+        if $options->{replace_constructor} or $constructor->can_be_inlined;
 }
 
 sub _inline_destructor {