diff options
Diffstat (limited to 'lib/MooseX/Role/Matcher.pm')
| -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 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}; |