X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FClass%2FMOP%2FInstance.pm;h=d71ef7fc6f655308626773c410860e7dd161912f;hb=af72687d6d45c59be325b4d43c852606c8a2c9c1;hp=16dd6e0ea7ebcd6060bf70370dccc99c056c0b16;hpb=fbedcfb3e98c797922bad3788f9b08063cafebcf;p=gitmo%2FClass-MOP.git diff --git a/lib/Class/MOP/Instance.pm b/lib/Class/MOP/Instance.pm index 16dd6e0..d71ef7f 100644 --- a/lib/Class/MOP/Instance.pm +++ b/lib/Class/MOP/Instance.pm @@ -6,7 +6,7 @@ use warnings; use Scalar::Util 'weaken', 'blessed'; -our $VERSION = '0.78'; +our $VERSION = '0.85'; $VERSION = eval $VERSION; our $AUTHORITY = 'cpan:STEVAN'; @@ -75,6 +75,9 @@ sub create_instance { # for compatibility sub bless_instance_structure { + Carp::cluck('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; } @@ -223,7 +226,7 @@ Class::MOP::Instance - Instance Meta Object =head1 DESCRIPTION -The meta instance API controls the creation of object instances, and +The Instance Protocol controls the creation of object instances, and the storage of attribute values in those instances. Using this API directly in your own code violates encapsulation, and