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