diff options
| -rw-r--r-- | lib/MooseX/Role/Matcher.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/MooseX/Role/Matcher.pm b/lib/MooseX/Role/Matcher.pm index c6fe846..d39e388 100644 --- a/lib/MooseX/Role/Matcher.pm +++ b/lib/MooseX/Role/Matcher.pm @@ -16,7 +16,7 @@ my $default = $p->default_match; method _apply_to_matches => sub { my $on_match = shift; my $matcher = shift; - my @list = @{ shift }; + my @list = @{ shift() }; unshift @_, $default if (@_ % 2 == 1); $on_match->(sub { $matcher->(@_) }, @list); }; |