Ignore meta in a method provider's list of provided methods.

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

diff --git a/lib/MooseX/AttributeHelpers/Trait/Base.pm b/lib/MooseX/AttributeHelpers/Trait/Base.pm
index fb1e818..4294e77 100644 (file)
--- a/lib/MooseX/AttributeHelpers/Trait/Base.pm
+++ b/lib/MooseX/AttributeHelpers/Trait/Base.pm
@@ -45,7 +45,8 @@ has 'method_constructors' => (
         return +{
             map {
                 $_ => $method_provider->get_method($_)
-            } $method_provider->get_method_list
+            }
+            grep { $_ ne 'meta' } $method_provider->get_method_list
         };
     },
 );
@@ -160,7 +161,7 @@ after 'install_accessors' => sub {
                 $method_code = $attr->_curry_sub($body, $curried_arg);
             }
             else {
-                confess "curries parameter must be ref type HASH or CODE";
+                confess "curries parameter must be ref type ARRAY or CODE";
             }
 
             my $method = MooseX::AttributeHelpers::Meta::Method::Curried->wrap(
@@ -168,7 +169,7 @@ after 'install_accessors' => sub {
                 package_name => $class_name,
                 name => $curried_name,
             );
-                
+
             $attr->associate_method($method);
             $class->add_method($curried_name => $method);
         }