From: Shawn M Moore <sartak@gmail.com>
Date: Tue, 9 Dec 2008 02:58:51 +0000 (+0000)
Subject: Anchor this exclusion regex so "has_list" etc will work
X-Git-Tag: 0.19~130
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a56aa0ee324f5d273c7cf206311fed06f0e91853;p=gitmo%2FMouse.git

Anchor this exclusion regex so "has_list" etc will work
---

diff --git a/lib/Mouse/Meta/Class.pm b/lib/Mouse/Meta/Class.pm
index a6d6de7..20d0549 100644
--- a/lib/Mouse/Meta/Class.pm
+++ b/lib/Mouse/Meta/Class.pm
@@ -75,7 +75,7 @@ sub get_method_list {
     no strict 'refs';
     # Get all the CODE symbol table entries
     my @functions =
-      grep !/(?:has|with|around|before|after|blessed|extends|confess)/,
+      grep !/^(?:has|with|around|before|after|blessed|extends|confess)$/,
       grep { defined &{"${name}::$_"} }
       keys %{"${name}::"};
     push @functions, keys %{$self->{'methods'}->{$name}};