From: Yuval Kogman <nothingmuch@woobling.org>
Date: Mon, 19 May 2008 08:03:11 +0000 (+0000)
Subject: Update for new Class::MOP wrapping stuff
X-Git-Tag: 0.18_01~37
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dc4333e990e923072aa75cfe14e968a24eb1c7a4;p=gitmo%2FMooseX-AttributeHelpers.git

Update for new Class::MOP wrapping stuff
---

diff --git a/lib/MooseX/AttributeHelpers/Base.pm b/lib/MooseX/AttributeHelpers/Base.pm
index 4a87a8c..161a828 100644
--- a/lib/MooseX/AttributeHelpers/Base.pm
+++ b/lib/MooseX/AttributeHelpers/Base.pm
@@ -111,6 +111,8 @@ after 'install_accessors' => sub {
 
     my $method_constructors = $attr->method_constructors;
 
+    my $class_name = $class->name;
+
     foreach my $key (keys %{$attr->provides}) {
 
         my $method_name = $attr->provides->{$key};
@@ -124,7 +126,9 @@ after 'install_accessors' => sub {
                 $attr,
                 $attr_reader,
                 $attr_writer,
-            )
+            ),
+            package_name => $class_name,
+            name => $method_name,
         );
         
         $attr->associate_method($method);