From: Florian Ragwitz <rafl@debian.org>
Date: Sun, 29 Mar 2009 19:57:33 +0000 (+0000)
Subject: Stop using $attr->process_accessors. It's been deprecated.
X-Git-Tag: 0.00801~10
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=18991513cb1c051498e69117ce9b81ebc734dab3;p=gitmo%2FMooseX-Emulate-Class-Accessor-Fast.git

Stop using $attr->process_accessors. It's been deprecated.
---

diff --git a/lib/MooseX/Emulate/Class/Accessor/Fast.pm b/lib/MooseX/Emulate/Class/Accessor/Fast.pm
index 33e9426..19b1410 100644
--- a/lib/MooseX/Emulate/Class/Accessor/Fast.pm
+++ b/lib/MooseX/Emulate/Class/Accessor/Fast.pm
@@ -124,8 +124,7 @@ sub mk_accessors{
       if($attr_name eq $reader){
         my $alias = "_${attr_name}_accessor";
         next if $meta->has_method($alias);
-        my @alias_method = $attr->process_accessors(accessor => $alias, 0);
-        $meta->add_method(@alias_method);
+        $meta->add_method($alias => $attr->get_read_method_ref);
       }
     } else {
       my @opts = ( $meta->has_method($writer) ? () : (writer => $writer) );