From a814b0be647c0e807f1f57b72abdce8aa7bd8d70 Mon Sep 17 00:00:00 2001
From: Brian Fraser <brian.fraser@percona.com>
Date: Thu, 31 Jan 2013 20:00:09 -0300
Subject: [PATCH] Minor fix to get Mo::has(handles => qr/.*/) working again

---
 lib/Mo.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/Mo.pm b/lib/Mo.pm
index fa43dd21..c2468b2b 100644
--- a/lib/Mo.pm
+++ b/lib/Mo.pm
@@ -140,6 +140,8 @@ our %metadata_for;
 }
 
 my %export_for;
+%Mo::Internal::Keyword = map { $_ => 1 } qw(has extends override);
+
 sub Mo::import {
     # Set warnings and strict for the caller.
     warnings->import(qw(FATAL all));
@@ -351,7 +353,7 @@ sub _has_handles {
             map   { $_, $_     }
             grep  { $_ =~ $handles }
             grep  { !exists $Mo::Object::{$_} && $target_class->can($_) }
-            grep  { $_ ne 'has' && $_ ne 'extends' }
+            grep  { !$Mo::Internal::Keyword{$_} }
             keys %{ _stash_for $target_class }
          };
    }