X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FClass-MOP.git;a=blobdiff_plain;f=lib%2FClass%2FMOP%2FClass.pm;fp=lib%2FClass%2FMOP%2FClass.pm;h=26d4bdabe3ab206753538312e540b74ef9152ee3;hp=cfa11fe6b5ed90a0ac87c185bfd813c71a52493a;hb=398a82df319a28b66dfd22e98c87a0adfb12c83f;hpb=aa28eb106aaeffc3d29983be5f6b63b9fc254c16

diff --git a/lib/Class/MOP/Class.pm b/lib/Class/MOP/Class.pm
index cfa11fe..26d4bda 100644
--- a/lib/Class/MOP/Class.pm
+++ b/lib/Class/MOP/Class.pm
@@ -681,9 +681,18 @@ sub _inline_init_attr_from_constructor {
     my $self = shift;
     my ($attr, $idx) = @_;
 
-    return $attr->_inline_set_value(
-        '$instance', '$params->{\'' . $attr->init_arg . '\'}'
-    ),
+    my @initial_value = $attr->_inline_set_value(
+        '$instance', '$params->{\'' . $attr->init_arg . '\'}',
+    );
+
+    push @initial_value, (
+        '$attrs->[' . $idx . ']->set_initial_value(',
+            '$instance,',
+            $attr->_inline_instance_get('$instance'),
+        ');',
+    ) if $attr->has_initializer;
+
+    return @initial_value;
 }
 
 sub _inline_init_attr_from_default {
@@ -693,7 +702,16 @@ sub _inline_init_attr_from_default {
     my $default = $self->_inline_default_value($attr, $idx);
     return unless $default;
 
-    return $attr->_inline_set_value('$instance', $default);
+    my @initial_value = $attr->_inline_set_value('$instance', $default);
+
+    push @initial_value, (
+        '$attrs->[' . $idx . ']->set_initial_value(',
+            '$instance,',
+            $attr->_inline_instance_get('$instance'),
+        ');',
+    ) if $attr->has_initializer;
+
+    return @initial_value;
 }
 
 sub _inline_default_value {