From: Shawn M Moore <sartak@gmail.com>
Date: Thu, 5 Feb 2009 16:33:25 +0000 (+0000)
Subject: Need to ignore override and super in the method list
X-Git-Tag: 0.19~51
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=commitdiff_plain;h=478cab2c569b5da1c9ba0883de7a516d931b8a72;hp=d8b10b3268f3ff4fadb7f7fc2b578a335bcda416

Need to ignore override and super in the method list
---

diff --git a/lib/Mouse/Meta/Class.pm b/lib/Mouse/Meta/Class.pm
index 5ee9049..93b6f6c 100644
--- a/lib/Mouse/Meta/Class.pm
+++ b/lib/Mouse/Meta/Class.pm
@@ -76,7 +76,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|override|super)$/,
       grep { defined &{"${name}::$_"} }
       keys %{"${name}::"};
     push @functions, keys %{$self->{'methods'}->{$name}};