Lines Matching refs:sub
33 "use \"sub NAME : ATTRS\" instead");47 get(sub)48 SV * sub50 if (SvROK(sub)) {51 sub = SvRV(sub);52 if (SvTYPE(sub) != SVt_PVCV)53 sub = Nullsv;57 char *name = SvPV(sub, n_a);58 sub = (SV*)perl_get_cv(name, FALSE);60 if (!sub)62 if (CvFLAGS(sub) & CVf_METHOD)64 if (CvFLAGS(sub) & CVf_LOCKED)