From 3f1a3a0dc5b15d4b038a3075a8df50fda36b0dea Mon Sep 17 00:00:00 2001
From: doy <doy@tozt.net>
Date: Mon, 12 Jan 2009 23:01:19 -0500
Subject: explicitly return 0 on a failed arrayref match

---
 lib/MooseX/Role/Matcher.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/MooseX/Role/Matcher.pm b/lib/MooseX/Role/Matcher.pm
index 3080348..e6963cd 100644
--- a/lib/MooseX/Role/Matcher.pm
+++ b/lib/MooseX/Role/Matcher.pm
@@ -168,6 +168,7 @@ method _match => sub {
         for (@$seek) {
             return 1 if $self->_match($value => $_);
         }
+        return 0;
     }
     if (ref($seek) eq 'HASH') {
         return 0 unless blessed($value) &&
-- 
cgit v1.2.3-54-g00ecf