clean up my confusion with @_ and $_

1 files changed, 4 insertions, 3 deletions

diff --git a/lib/MooseX/Role/Matcher.pm b/lib/MooseX/Role/Matcher.pm
index 6456031..bfb658e 100644
--- a/lib/MooseX/Role/Matcher.pm
+++ b/lib/MooseX/Role/Matcher.pm
@@ -17,8 +17,9 @@ method _apply_to_matches => sub {
     my $class = shift;
     my $on_match = shift;
     my @list = @{ shift() };
-    unshift @_, $default if (@_ % 2 == 1);
-    $on_match->(sub { $_->match(@_) }, @list);
+    my @matchers = @_;
+    unshift @matchers, $default if (@_ % 2 == 1);
+    $on_match->(sub { $_->match(@matchers) }, @list);
 };
 
 method first_match => sub {
@@ -34,7 +35,7 @@ method each_match => sub {
 
 method grep_matches => sub {
     my $class = shift;
-    my $grep = sub { my $code = shift; grep { $code->($_) } @_ };
+    my $grep = sub { my $code = shift; grep { $code->() } @_ };
     $class->_apply_to_matches($grep, @_);
 };