projects
/
gitmo/Class-MOP.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
clean up ::HasMethods a bunch
[gitmo/Class-MOP.git]
/
lib
/
Class
/
MOP
/
Deprecated.pm
diff --git
a/lib/Class/MOP/Deprecated.pm
b/lib/Class/MOP/Deprecated.pm
index
ad2b553
..
4053c23
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