X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FClass%2FMOP%2FAttribute.pm;h=434e41145ea58e5ad98d3b490043cc465eef3b07;hb=a828455d79d02cb9e825aff57ac81d18dca0e660;hp=9579d7ae8799e2d777b7082675c1b2bff4babd78;hpb=33ecbaa40bbcda7518cb3e5477d357e6b3d95ff6;p=gitmo%2FClass-MOP.git diff --git a/lib/Class/MOP/Attribute.pm b/lib/Class/MOP/Attribute.pm index 9579d7a..434e411 100644 --- a/lib/Class/MOP/Attribute.pm +++ b/lib/Class/MOP/Attribute.pm @@ -9,7 +9,7 @@ use Class::MOP::Method::Accessor; use Carp 'confess'; use Scalar::Util 'blessed', 'weaken'; -our $VERSION = '0.80'; +our $VERSION = '0.82_01'; $VERSION = eval $VERSION; our $AUTHORITY = 'cpan:STEVAN'; @@ -329,9 +329,9 @@ sub clear_value { sub accessor_metaclass { 'Class::MOP::Method::Accessor' } sub process_accessors { - warn 'The process_accessors method has been made private.' - . " The public version is deprecated and will be removed in a future release.\n"; - shift->_process_accessors; + Carp::cluck('The process_accessors method has been made private.' + . " The public version is deprecated and will be removed in a future release.\n"); + shift->_process_accessors(@_); } sub _process_accessors {