add a warning for the deprecated Class::MOP::Instance->bless_intsance_structure method

[gitmo/Class-MOP.git] / examples / ArrayBasedStorage.pod

diff --git a/examples/ArrayBasedStorage.pod b/examples/ArrayBasedStorage.pod
index bff9baa..5c0369c 100644 (file)
--- 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;
 }