Update for new Class::MOP wrapping stuff

[gitmo/MooseX-AttributeHelpers.git] / lib / MooseX / AttributeHelpers / Base.pm

diff --git a/lib/MooseX/AttributeHelpers/Base.pm b/lib/MooseX/AttributeHelpers/Base.pm
index 4a87a8c..161a828 100644 (file)
--- 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);