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 (file)
--- 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 {