From: gfx <gfuji@cpan.org>
Date: Sun, 12 Jul 2009 03:55:08 +0000 (+0900)
Subject: no get_method_map in get_method_list
X-Git-Tag: 0.90~19^2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=70df4709bf61592d5dfdcaa53b2a80b18f6bc9c3;p=gitmo%2FClass-MOP.git

no get_method_map in get_method_list
---

diff --git a/lib/Class/MOP/Class.pm b/lib/Class/MOP/Class.pm
index 0530739..d61c758 100644
--- a/lib/Class/MOP/Class.pm
+++ b/lib/Class/MOP/Class.pm
@@ -785,7 +785,7 @@ sub remove_method {
 
 sub get_method_list {
     my $self = shift;
-    keys %{$self->get_method_map};
+    return grep { $self->has_method($_) } keys %{ $self->namespace };
 }
 
 sub find_method_by_name {