summaryrefslogtreecommitdiffstats
path: root/lib/MooseX/Role/Matcher.pm
diff options
context:
space:
mode:
authordoy <doy@tozt.net>2008-12-06 23:01:49 -0500
committerdoy <doy@tozt.net>2008-12-06 23:01:49 -0500
commitc9bf554fff299bb429b7f93c474c97d14b749e3f (patch)
treeb6788c5334516c8f9c73c0b7f5d497fc4d1bdb26 /lib/MooseX/Role/Matcher.pm
parentcf5ced804a7ad2c8d101a72d44a0068e69b51fe4 (diff)
downloadmoosex-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.pm8
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->() } @_ };