Pure Perl accessors into XS

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

diff --git a/lib/Class/MOP/Method/Inlined.pm b/lib/Class/MOP/Method/Inlined.pm
index fa68ebe..3621a8a 100644 (file)
--- a/lib/Class/MOP/Method/Inlined.pm
+++ b/lib/Class/MOP/Method/Inlined.pm
@@ -12,7 +12,7 @@ our $AUTHORITY = 'cpan:STEVAN';
 
 use base 'Class::MOP::Method::Generated';
 
-sub _expected_method_class { $_[0]{_expected_method_class} }
+#sub _expected_method_class { $_[0]{_expected_method_class} }
 
 sub _uninlined_body {
     my $self = shift;