7 check_method_cache_flag:
8 check the PL_sub_generation
12 Pass in a coderef, returns:
13 [ $pkg_name, $coderef_name ] ie:
17 MODULE = Class::MOP PACKAGE = Class::MOP
20 check_package_cache_flag()
22 RETVAL = newSViv(PL_sub_generation);
27 get_code_info(coderef)
34 if( SvOK(coderef) && SvROK(coderef) && SvTYPE(SvRV(coderef)) == SVt_PVCV){
35 coderef = SvRV(coderef);
36 name = GvNAME( CvGV(coderef) );
37 pkg = HvNAME( GvSTASH(CvGV(coderef)) );
40 PUSHs(newSVpvn(pkg, strlen(pkg)));
41 PUSHs(newSVpvn(name, strlen(name)));