From: Shawn M Moore <sartak@gmail.com>
Date: Tue, 9 Dec 2008 03:02:31 +0000 (+0000)
Subject: Anchor this same regex in Mouse::Meta::Role
X-Git-Tag: 0.19~128
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=949ee85c1ccebed118189ac321fd4dbfbb95b769;p=gitmo%2FMouse.git

Anchor this same regex in Mouse::Meta::Role
---

diff --git a/lib/Mouse/Meta/Role.pm b/lib/Mouse/Meta/Role.pm
index 2008581..95bdca8 100644
--- a/lib/Mouse/Meta/Role.pm
+++ b/lib/Mouse/Meta/Role.pm
@@ -61,7 +61,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|excludes|meta|requires)/,
+      grep !/^(?:has|with|around|before|after|blessed|extends|confess|excludes|meta|requires)$/,
       grep { defined &{"${name}::$_"} }
       keys %{"${name}::"};
     wantarray ? @functions : \@functions;