8 if (strnEQ(attr, "method", 6))
10 else if (strnEQ(attr, "locked", 6))
16 MODULE = attrs PACKAGE = attrs
27 if (!PL_compcv || !(cv = CvOUTSIDE(PL_compcv)))
28 croak("can't set attributes outside a subroutine scope");
29 for (i = 1; i < items; i++) {
30 char *attr = SvPV(ST(i), PL_na);
31 cv_flags_t flag = get_flag(attr);
33 croak("invalid attribute name %s", attr);
46 if (SvTYPE(sub) != SVt_PVCV)
50 char *name = SvPV(sub, PL_na);
51 sub = (SV*)perl_get_cv(name, FALSE);
54 croak("invalid subroutine reference or name");
55 if (CvFLAGS(sub) & CVf_METHOD)
56 XPUSHs(sv_2mortal(newSVpv("method", 0)));
57 if (CvFLAGS(sub) & CVf_LOCKED)
58 XPUSHs(sv_2mortal(newSVpv("locked", 0)));