X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FClass%2FMOP.pm;h=0ef8e877c1265e074adf3c48fb2aa80e0fec809a;hb=7855ddba257d675899620452f97912ccf69efb77;hp=ef130fc5083cfd9a712b3ed59ae3799219dcc714;hpb=7f974e03923c7e2f0914145b3abba575d3ab00af;p=gitmo%2FClass-MOP.git

diff --git a/lib/Class/MOP.pm b/lib/Class/MOP.pm
index ef130fc..0ef8e87 100644
--- a/lib/Class/MOP.pm
+++ b/lib/Class/MOP.pm
@@ -178,28 +178,30 @@ Class::MOP::Class->meta->add_attribute(
 
 Class::MOP::Class->meta->add_attribute(
     Class::MOP::Attribute->new('%:methods' => (
-        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->get_method($_) 
-                    } grep { 
-                        $self->has_method($_) 
-                    } $self->list_all_package_symbols
-                };            
-            }
-        },
-        init_arg => '!............( DO NOT DO THIS )............!',
-        default  => sub { \undef }
+        #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 }
+        default => sub { {} }
     ))
 );