X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=examples%2FArrayBasedStorage.pod;h=5c0369ccd5abe9245d896c30d81a831fe8a600e1;hb=cf11901eebe04a2999c1d43c484c2bcb31023bad;hp=bff9baaec231d2ea62041ea11e578135ca0c5e28;hpb=88bb3cf1a0e38a011d04bc7eff7f2e59a0c304e1;p=gitmo%2FClass-MOP.git

diff --git a/examples/ArrayBasedStorage.pod b/examples/ArrayBasedStorage.pod
index bff9baa..5c0369c 100644
--- a/examples/ArrayBasedStorage.pod
+++ b/examples/ArrayBasedStorage.pod
@@ -23,7 +23,7 @@ sub new {
 
 sub create_instance {
     my $self = shift;
-    my $instance = $self->bless_instance_structure([]);
+    my $instance = bless [], $self->_class_name;
     $self->initialize_all_slots($instance);
     return $instance;
 }