From: Dave Rolsky <autarch@houseabsolute.urth.org>
Date: Sat, 14 Mar 2009 18:49:54 +0000 (-0500)
Subject: Improve deprecation warning
X-Git-Tag: 0.78_01~32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ec3f893666c09744960bf63d706c1f48980d521b;p=gitmo%2FClass-MOP.git

Improve deprecation warning
---

diff --git a/lib/Class/MOP/Attribute.pm b/lib/Class/MOP/Attribute.pm
index 53e0a10..070d119 100644
--- a/lib/Class/MOP/Attribute.pm
+++ b/lib/Class/MOP/Attribute.pm
@@ -329,7 +329,8 @@ sub clear_value {
 sub accessor_metaclass { 'Class::MOP::Method::Accessor' }
 
 sub process_accessors {
-    warn "The process_accessors method has been made private and this public alias will be removed in a future release.";
+    warn 'The process_accessors method has been made private.'
+        . " The public version is deprecated and will be removed in a future release.\n";
     goto &_process_accessors;
 }