diff options
author | doy <doy@tozt.net> | 2008-12-06 23:01:49 -0500 |
---|---|---|
committer | doy <doy@tozt.net> | 2008-12-06 23:01:49 -0500 |
commit | c9bf554fff299bb429b7f93c474c97d14b749e3f (patch) | |
tree | b6788c5334516c8f9c73c0b7f5d497fc4d1bdb26 /lib/MooseX/Role/Matcher.pm | |
parent | cf5ced804a7ad2c8d101a72d44a0068e69b51fe4 (diff) | |
download | moosex-role-matcher-c9bf554fff299bb429b7f93c474c97d14b749e3f.tar.gz moosex-role-matcher-c9bf554fff299bb429b7f93c474c97d14b749e3f.zip |
get rid of each_match, it really doesn't belong here
Diffstat (limited to 'lib/MooseX/Role/Matcher.pm')
-rw-r--r-- | lib/MooseX/Role/Matcher.pm | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/lib/MooseX/Role/Matcher.pm b/lib/MooseX/Role/Matcher.pm index bfb658e..d4731cc 100644 --- a/lib/MooseX/Role/Matcher.pm +++ b/lib/MooseX/Role/Matcher.pm @@ -2,7 +2,7 @@ package MooseX::Role::Matcher; use MooseX::Role::Parameterized; use List::Util qw/first/; -use List::MoreUtils qw/any apply/; +use List::MoreUtils qw/any/; parameter default_match => ( is => 'ro', @@ -27,12 +27,6 @@ method first_match => sub { $class->_apply_to_matches(\&first, @_); }; -method each_match => sub { - my $class = shift; - my $code = shift; - $class->_apply_to_matches(\&apply, $code, @_); -}; - method grep_matches => sub { my $class = shift; my $grep = sub { my $code = shift; grep { $code->() } @_ }; |