X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=examples%2FInsideOutClass.pod;h=30298a7929b2544dde9781d526445230b148d501;hb=6d5355c3845e060d269b664be7b4284c606691b8;hp=fdd1691d61acd1df26cfd472d28107aa65821208;hpb=2243a22b2f3dd10fe1d860722e83526fa3c998b3;p=gitmo%2FClass-MOP.git

diff --git a/examples/InsideOutClass.pod b/examples/InsideOutClass.pod
index fdd1691..30298a7 100644
--- a/examples/InsideOutClass.pod
+++ b/examples/InsideOutClass.pod
@@ -23,9 +23,9 @@ sub initialize_instance_slot {
     if (!defined $val && defined $self->{default}) {
         $val = $self->default($instance);
     }
-    $self->associated_class
-         ->get_meta_instance
-         ->set_slot_value($instance, $self->name, $val);
+    my $_meta_instance = $self->associated_class->get_meta_instance;
+    $_meta_instance->initialize_slot($instance, $self->name);
+    $_meta_instance->set_slot_value($instance, $self->name, $val);
 }
 
 ## Method generation helpers