summaryrefslogtreecommitdiffstats
path: root/lib/MooseX/Role/Matcher.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/MooseX/Role/Matcher.pm')
-rw-r--r--lib/MooseX/Role/Matcher.pm5
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/MooseX/Role/Matcher.pm b/lib/MooseX/Role/Matcher.pm
index ce8ebd3..3080348 100644
--- a/lib/MooseX/Role/Matcher.pm
+++ b/lib/MooseX/Role/Matcher.pm
@@ -169,6 +169,11 @@ method _match => sub {
return 1 if $self->_match($value => $_);
}
}
+ if (ref($seek) eq 'HASH') {
+ return 0 unless blessed($value) &&
+ $value->does('MooseX::Role::Matcher');
+ return $value->match(%$seek);
+ }
return $value eq $seek;
};