Comment out pp accessors in Package.pm
gfx [Tue, 18 Aug 2009 08:19:11 +0000 (17:19 +0900)]
lib/Class/MOP/Package.pm

index 92463aa..2a32066 100644 (file)
@@ -103,10 +103,10 @@ sub namespace {
     \%{$_[0]->{'package'} . '::'} 
 }
 
-sub method_metaclass         { $_[0]->{'method_metaclass'}            }
-sub wrapped_method_metaclass { $_[0]->{'wrapped_method_metaclass'}    }
+#sub method_metaclass         { $_[0]->{'method_metaclass'}            }
+#sub wrapped_method_metaclass { $_[0]->{'wrapped_method_metaclass'}    }
 
-sub _method_map              { $_[0]->{'methods'}                     }
+#sub _method_map              { $_[0]->{'methods'}                     }
 
 # utility methods