diff options
author | doy <doy@tozt.net> | 2008-12-06 20:23:00 -0500 |
---|---|---|
committer | doy <doy@tozt.net> | 2008-12-06 20:23:00 -0500 |
commit | 7bb7288a5489b6264680a81d4c5ab31a0ceeea72 (patch) | |
tree | 69597ad9edf0b420852522726c3797f720574f7d | |
parent | e72c5fd3a95e3babb5d4b30523c10b7678a0631d (diff) | |
download | moosex-role-matcher-7bb7288a5489b6264680a81d4c5ab31a0ceeea72.tar.gz moosex-role-matcher-7bb7288a5489b6264680a81d4c5ab31a0ceeea72.zip |
use ! as the prefix for negated matching rather than not_, since it's possible to have methods named 'not_foo'
-rw-r--r-- | lib/MooseX/Role/Matcher.pm | 2 | ||||
-rw-r--r-- | t/002-complicated-matching.t | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lib/MooseX/Role/Matcher.pm b/lib/MooseX/Role/Matcher.pm index 767bb1f..cdd9812 100644 --- a/lib/MooseX/Role/Matcher.pm +++ b/lib/MooseX/Role/Matcher.pm @@ -68,7 +68,7 @@ method match => sub { # All the conditions must be true for true to be returned. Return # immediately if a false condition is found. for my $matcher (keys %args) { - my ($invert, $name) = $matcher =~ /^(not_)?(.*)$/; + my ($invert, $name) = $matcher =~ /^(!)?(.*)$/; my $value = $self->can($name) ? $self->$name : undef; my $seek = $args{$matcher}; diff --git a/t/002-complicated-matching.t b/t/002-complicated-matching.t index bcf2399..80d081c 100644 --- a/t/002-complicated-matching.t +++ b/t/002-complicated-matching.t @@ -21,5 +21,5 @@ ok($foo->match(a => [qr/b/, sub { length(shift) == 3 }]), 'arrayref matching works'); ok(!$foo->match(a => [qr/b/, sub { length(shift) == 4 }]), 'arrayref matching works'); -ok($foo->match(not_a => 'bar', b => 'bar', not_c => 'bar'), +ok($foo->match('!a' => 'bar', b => 'bar', '!c' => 'bar'), 'negated matching works'); |