From: gfx <gfuji@cpan.org>
Date: Wed, 15 Jul 2009 10:16:05 +0000 (+0900)
Subject: no get_method_map in get_all_method_names
X-Git-Tag: 0.90~12
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=154c11b268807c9d0ef0dd3a1ea708d212736414;p=gitmo%2FClass-MOP.git

no get_method_map in get_all_method_names
---

diff --git a/lib/Class/MOP/Class.pm b/lib/Class/MOP/Class.pm
index 29cbc68..67a865b 100644
--- a/lib/Class/MOP/Class.pm
+++ b/lib/Class/MOP/Class.pm
@@ -826,7 +826,7 @@ sub compute_all_applicable_methods {
 sub get_all_method_names {
     my $self = shift;
     my %uniq;
-    grep { $uniq{$_}++ == 0 } map { $_->name } $self->get_all_methods;
+    return grep { !$uniq{$_}++ } map { $self->initialize($_)->get_method_list } $self->linearized_isa;
 }
 
 sub find_all_methods_by_name {