make inlining a bit more easily extensible

[gitmo/Class-MOP.git] / lib / Class / MOP / Method / Constructor.pm

diff --git a/lib/Class/MOP/Method/Constructor.pm b/lib/Class/MOP/Method/Constructor.pm
index 687aed6..3755a4e 100644 (file)
--- a/lib/Class/MOP/Method/Constructor.pm
+++ b/lib/Class/MOP/Method/Constructor.pm
@@ -143,22 +143,22 @@ sub _generate_slot_initializer {
     if (defined(my $init_arg = $attr->init_arg)) {
         my @source = (
             'if (exists $params->{\'' . $init_arg . '\'}) {',
-                $attr->inline_set(
+                $attr->_inline_set_value(
                     '$instance', '$params->{\'' . $init_arg . '\'}'
-                ) . ';',
+                ),
             '}',
         );
         if (defined $default) {
             push @source, (
                 'else {',
-                    $attr->inline_set('$instance', $default) . ';',
+                    $attr->_inline_set_value('$instance', $default),
                 '}',
             );
         }
         return @source;
     }
     elsif (defined $default) {
-        return ($attr->inline_set('$instance', $default) . ';');
+        return $attr->_inline_set_value('$instance', $default);
     }
     else {
         return ();