no get_method_map in get_all_method_names
gfx [Wed, 15 Jul 2009 10:16:05 +0000 (19:16 +0900)]
lib/Class/MOP/Class.pm

index 29cbc68..67a865b 100644 (file)
@@ -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 {