slight speed improvements

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

diff --git a/lib/Class/MOP.pm b/lib/Class/MOP.pm
index 0ef8e87..b7d634c 100644 (file)
--- a/lib/Class/MOP.pm
+++ b/lib/Class/MOP.pm
@@ -178,29 +178,18 @@ Class::MOP::Class->meta->add_attribute(
 
 Class::MOP::Class->meta->add_attribute(
     Class::MOP::Attribute->new('%:methods' => (
-        #reader => 'get_method_map',
-        #reader   => {          
-        #    # NOTE:
-        #    # as with the $VERSION and $AUTHORITY above
-        #    # sometimes we don't/can't store directly 
-        #    # inside the instance, so we need the accessor
-        #    # to just DWIM
-        #    'get_method_map' => sub {
-        #        my $self = shift;
-        #        # FIXME:
-        #        # there is a faster/better way 
-        #        # to do this, I am sure :)    
-        #        return +{ 
-        #            map {
-        #                $_ => $self->method_metaclass->wrap($self->get_package_symbol('&' . $_)) 
-        #            } grep { 
-        #                $self->has_package_symbol('&' . $_) 
-        #            } $self->list_all_package_symbols
-        #        };            
-        #    }
-        #},
-        #init_arg => '!............( DO NOT DO THIS )............!',
-        #default  => sub { \undef }
+        reader   => {          
+            'get_method_map' => sub {
+                my $self = shift;
+                my $map  = $self->{'%:methods'}; 
+                foreach my $symbol ($self->list_all_package_symbols('CODE')) {
+                    my $code = $self->get_package_symbol('&' . $symbol);
+                    next if exists $map->{$symbol} && $map->{$symbol}->body == $code;
+                    $map->{$symbol} = $self->method_metaclass->wrap($code);
+                }
+                return $map;         
+            }
+        },
         default => sub { {} }
     ))
 );