X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FClass%2FMOP%2FMixin%2FHasMethods.pm;h=bc5b09c0b398e20d9e48f40b21e8403326a76f2c;hb=ea6dca1713c5f12a07e165b0e5d70b9455682414;hp=8e38d5ed3923c59f67678e3761ee648b091aa91a;hpb=bfeff08aed30cc57ffe4a2f4306f227485635e89;p=gitmo%2FClass-MOP.git

diff --git a/lib/Class/MOP/Mixin/HasMethods.pm b/lib/Class/MOP/Mixin/HasMethods.pm
index 8e38d5e..bc5b09c 100644
--- a/lib/Class/MOP/Mixin/HasMethods.pm
+++ b/lib/Class/MOP/Mixin/HasMethods.pm
@@ -149,7 +149,11 @@ sub remove_method {
 
 sub get_method_list {
     my $self = shift;
-    return grep { $self->has_method($_) } keys %{ $self->namespace };
+
+    my $namespace = $self->namespace;
+
+    return grep { *{ $namespace->{$_} }{CODE} && $self->has_method($_) }
+        keys %{$namespace};
 }
 
 1;