9 Pass in a coderef, returns:
10 [ $pkg_name, $coderef_name ] ie:
14 MODULE = Class::MOP PACKAGE = Class::MOP
19 get_code_info(coderef)
25 if( SvOK(coderef) && SvROK(coderef) && SvTYPE(SvRV(coderef)) == SVt_PVCV){
26 coderef = SvRV(coderef);
27 name = GvNAME( CvGV(coderef) );
28 pkg = HvNAME( GvSTASH(CvGV(coderef)) );
31 PUSHs(newSVpvn(pkg, strlen(pkg)));
32 PUSHs(newSVpvn(name, strlen(name)));