diff options
-rw-r--r-- | lib/MooseX/Role/Matcher.pm | 5 |
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; }; |