X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=examples%2FClassEncapsulatedAttributes.pod;h=8e84dbd4b18a8f819410093d64963d840142bc5c;hb=2bab2be690fec92f81ec4174ae83e09bde362ca7;hp=e14a17a545c189cf343e6f9b642e8e14e762f514;hpb=839ea97307cde7e936bff72d3f76d6213b9883a9;p=gitmo%2FClass-MOP.git diff --git a/examples/ClassEncapsulatedAttributes.pod b/examples/ClassEncapsulatedAttributes.pod index e14a17a..8e84dbd 100644 --- a/examples/ClassEncapsulatedAttributes.pod +++ b/examples/ClassEncapsulatedAttributes.pod @@ -5,7 +5,7 @@ package # hide the package from PAUSE use strict; use warnings; -our $VERSION = '0.05'; +our $VERSION = '0.06'; use base 'Class::MOP::Class'; @@ -37,7 +37,7 @@ package # hide the package from PAUSE use strict; use warnings; -our $VERSION = '0.03'; +our $VERSION = '0.04'; use base 'Class::MOP::Attribute'; @@ -57,7 +57,10 @@ sub initialize_instance_slot { $val = $self->default($meta_instance->get_instance); } # now add this to the instance structure - $meta_instance->get_slot_value($class->name)->{$self->name} = $val; + $meta_instance->get_slot_value( + $meta_instance->get_instance, + $class->name + )->{$self->name} = $val; } sub generate_accessor_method {