Retrieve topic/symbol-manipulator (2)

Revert "Revert "Remove subname() in add_method(). Now add_package_symbol() does it in a smart way.""

This reverts commit 6eefe0df62601d4467dd0822acaa4afaf01ea698.

diff --git a/lib/Class/MOP/Package.pm b/lib/Class/MOP/Package.pm
index f2c8e44..c69ab02 100644 (file)
--- a/lib/Class/MOP/Package.pm
+++ b/lib/Class/MOP/Package.pm
@@ -256,14 +256,6 @@ sub add_method {
         $body = $method;
     }
 
-
-    my ( $current_package, $current_name ) = Class::MOP::get_code_info($body);
-
-    if ( !defined $current_name || $current_name eq '__ANON__' ) {
-        my $full_method_name = ($self->name . '::' . $method_name);
-        subname($full_method_name => $body);
-    }
-
     $self->add_package_symbol(
         { sigil => '&', type => 'CODE', name => $method_name },
         $body,