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

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;
 }

diff --git a/examples/InsideOutClass.pod b/examples/InsideOutClass.pod
index 5f94a25..b69c10f 100644 (file)
--- a/examples/InsideOutClass.pod
+++ b/examples/InsideOutClass.pod
@@ -102,7 +102,7 @@ use base 'Class::MOP::Instance';
 
 sub create_instance {
        my ($self, $class) = @_;
-    $self->bless_instance_structure(\(my $instance));
+        bless \(my $instance), $self->_class_name;
 }
 
 sub get_slot_value {

diff --git a/lib/Class/MOP/Instance.pm b/lib/Class/MOP/Instance.pm
index 16dd6e0..700ec75 100644 (file)
--- a/lib/Class/MOP/Instance.pm
+++ b/lib/Class/MOP/Instance.pm
@@ -75,6 +75,9 @@ sub create_instance {
 
 # for compatibility
 sub bless_instance_structure {
+    warn 'The bless_instance_structure method is deprecated.'
+        . " It will be removed in a future release.\n";
+
     my ($self, $instance_structure) = @_;
     bless $instance_structure, $self->_class_name;
 }