Merge branch 'stable'

[gitmo/Class-MOP.git] / lib / Class / MOP / Deprecated.pm

diff --git a/lib/Class/MOP/Deprecated.pm b/lib/Class/MOP/Deprecated.pm
index a5c228d..57200aa 100644 (file)
--- a/lib/Class/MOP/Deprecated.pm
+++ b/lib/Class/MOP/Deprecated.pm
@@ -86,12 +86,7 @@ sub get_method_map {
     );
     my $self = shift;
 
-    my $map = $self->_full_method_map;
-
-    $map->{$_} = $self->get_method($_)
-        for grep { !blessed( $map->{$_} ) } keys %{$map};
-
-    return $map;
+    return { map { $_->name => $_ } $self->_get_local_methods };
 }
 
 package