X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FAttributeHelpers%2FTrait%2FBase.pm;fp=lib%2FMooseX%2FAttributeHelpers%2FTrait%2FBase.pm;h=fbdfd9b0d37df227a98c713a4a2ede41e66ee799;hb=a78379c84791662b5d7f1f31c895fa82a2e51255;hp=fb1e8184bdb89e53f912920924e2e65e362d6c30;hpb=c678e72d309ee9f1b98691b44d3118d252403f71;p=gitmo%2FMooseX-AttributeHelpers.git diff --git a/lib/MooseX/AttributeHelpers/Trait/Base.pm b/lib/MooseX/AttributeHelpers/Trait/Base.pm index fb1e818..fbdfd9b 100644 --- a/lib/MooseX/AttributeHelpers/Trait/Base.pm +++ b/lib/MooseX/AttributeHelpers/Trait/Base.pm @@ -160,7 +160,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 +168,7 @@ after 'install_accessors' => sub { package_name => $class_name, name => $curried_name, ); - + $attr->associate_method($method); $class->add_method($curried_name => $method); }