diff options
author | doy <doy@tozt.net> | 2008-12-06 20:18:19 -0500 |
---|---|---|
committer | doy <doy@tozt.net> | 2008-12-06 20:18:19 -0500 |
commit | ceb871336eec2484357a60c06bfc9cd68e00a0ce (patch) | |
tree | 845d88698e5eaa9657f9e7c719fa1ff2d648e2ac | |
parent | 6de61a57eba7e785be230d3e9d11386595c4a52d (diff) | |
download | moosex-role-matcher-ceb871336eec2484357a60c06bfc9cd68e00a0ce.tar.gz moosex-role-matcher-ceb871336eec2484357a60c06bfc9cd68e00a0ce.zip |
unambiguate @{ shift }
-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); }; |