adding Sub::Identify 0.03 stuff

diff --git a/Makefile.PL b/Makefile.PL
index 065acd5..810268c 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -6,10 +6,11 @@ name 'Class-MOP';
 all_from 'lib/Class/MOP.pm';
 license 'perl';
 
-requires 'Scalar::Util' => '1.18';
-requires 'Sub::Name'    => '0.02';
-requires 'MRO::Compat'  => '0.05';
-requires 'Carp'         => '0';
+requires 'Scalar::Util'  => '1.18';
+requires 'Sub::Name'     => '0.02';
+requires 'Sub::Identify' => '0.03';
+requires 'MRO::Compat'   => '0.05';
+requires 'Carp'          => '0';
 
 build_requires 'Test::More'      => '0.62';
 build_requires 'Test::Exception' => '0.21';

diff --git a/lib/Class/MOP.pm b/lib/Class/MOP.pm
index 439ac91..be3b9d8 100644 (file)
--- a/lib/Class/MOP.pm
+++ b/lib/Class/MOP.pm
@@ -34,12 +34,7 @@ BEGIN {
         
     # stash these for a sec, and see how things go
     my $_PP_subname       = sub { $_[1] };
-    my $_PP_get_code_info = sub ($) { 
-        return (            
-            Sub::Identify::stash_name($_[0]), 
-            Sub::Identify::sub_name($_[0])
-        ) 
-    };    
+    my $_PP_get_code_info = \&Sub::Identify::get_code_info;    
     
     if ($ENV{CLASS_MOP_NO_XS}) {
         # NOTE: