sub _maximum_arguments { 1 }
sub _inline_check_arguments {
- return
- q{die 'Must provide a code reference as an argument' unless ( ref $_[0] || q{} ) eq 'CODE';};
+ my $self = shift;
+
+ return $self->_inline_throw_error(
+ q{'The argument passed to grep must be a code reference'})
+ . q{if $_[0] && ( ref $_[0] || q{} ) ne 'CODE';};
}
sub _return_value {