X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FClass%2FMOP%2FInstance.pm;h=700ec758e4fe5dd5dd091bb0cd455c55949209fb;hb=cf11901eebe04a2999c1d43c484c2bcb31023bad;hp=16dd6e0ea7ebcd6060bf70370dccc99c056c0b16;hpb=88bb3cf1a0e38a011d04bc7eff7f2e59a0c304e1;p=gitmo%2FClass-MOP.git diff --git a/lib/Class/MOP/Instance.pm b/lib/Class/MOP/Instance.pm index 16dd6e0..700ec75 100644 --- 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; }