8 check_method_cache_flag:
9 check the PL_sub_generation
10 ISA/method cache thing
13 Pass in a coderef, returns:
14 [ $pkg_name, $coderef_name ] ie:
18 MODULE = Class::MOP PACKAGE = Class::MOP
21 check_package_cache_flag(pkg)
24 RETVAL = newSViv(PL_sub_generation);
29 get_code_info(coderef)
35 if( SvOK(coderef) && SvROK(coderef) && SvTYPE(SvRV(coderef)) == SVt_PVCV){
36 coderef = SvRV(coderef);
37 name = GvNAME( CvGV(coderef) );
38 pkg = HvNAME( GvSTASH(CvGV(coderef)) );
41 PUSHs(newSVpvn(pkg, strlen(pkg)));
42 PUSHs(newSVpvn(name, strlen(name)));