use base 'Moose::Meta::Method::Accessor::Native::Array::Reader';
-sub _inline_process_arguments {
- return 'my $func = shift;';
-}
+sub _minimum_arguments { 1 }
+
+sub _maximum_arguments { 1 }
sub _inline_check_arguments {
return
- q{die 'Must provide a code reference as an argument' unless ( ref $func || q{} ) eq 'CODE';};
+ q{die 'Must provide a code reference as an argument' unless ( ref $_[0] || q{} ) eq 'CODE';};
}
sub _return_value {
my $self = shift;
my $slot_access = shift;
- return "List::Util::reduce { \$func->( \$a, \$b ) } \@{ ${slot_access} }";
+ return "List::Util::reduce { \$_[0]->( \$a, \$b ) } \@{ ${slot_access} }";
}
1;