X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FClass%2FMOP%2FMixin%2FHasMethods.pm;fp=lib%2FClass%2FMOP%2FMixin%2FHasMethods.pm;h=5dced15c3e929a039acc67620e6d937cb67cabf8;hb=622c8ef2d9e9c107448b09a127a8263742db886e;hp=e3864a8017e694ba7b9c20b9dc64c5791ceff0a5;hpb=87026aa01ef1bd5a1eac91451cd7b6a2e8ac9c38;p=gitmo%2FClass-MOP.git

diff --git a/lib/Class/MOP/Mixin/HasMethods.pm b/lib/Class/MOP/Mixin/HasMethods.pm
index e3864a8..5dced15 100644
--- a/lib/Class/MOP/Mixin/HasMethods.pm
+++ b/lib/Class/MOP/Mixin/HasMethods.pm
@@ -11,7 +11,6 @@ our $AUTHORITY = 'cpan:STEVAN';
 
 use Scalar::Util 'blessed';
 use Carp         'confess';
-use Sub::Name    'subname';
 
 use base 'Class::MOP::Mixin';
 
@@ -83,14 +82,12 @@ sub add_method {
 
     my ( $current_package, $current_name ) = Class::MOP::get_code_info($body);
 
-    if ( !defined $current_name || $current_name =~ /^__ANON__/ ) {
-        my $full_method_name = ( $package_name . '::' . $method_name );
-        subname( $full_method_name => $body );
-    }
-
     $self->add_package_symbol(
         { sigil => '&', type => 'CODE', name => $method_name },
         $body,
+        (!defined($current_name) || $current_name =~ /^__ANON__/)
+            ? (subname => $method_name)
+            : (),
     );
 }