X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FClass%2FMOP%2FMethod%2FConstructor.pm;h=3755a4eea79f9b88de618332a98ceebb15cffc3d;hb=5e5102f19ccb1dc52b290577b0363e97dacbd5b3;hp=687aed6353bbd8c8c5dddf52dc9dc7cb3ae09d03;hpb=5efa6a46982d17e1ff642e8b97673c6618fa7e6d;p=gitmo%2FClass-MOP.git

diff --git a/lib/Class/MOP/Method/Constructor.pm b/lib/Class/MOP/Method/Constructor.pm
index 687aed6..3755a4e 100644
--- 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 ();