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++) {
31 char *attr = SvPV(ST(i), n_a);
32 cv_flags_t flag = get_flag(attr);
34 croak("invalid attribute name %s", attr);
47 if (SvTYPE(sub) != SVt_PVCV)
52 char *name = SvPV(sub, n_a);
53 sub = (SV*)perl_get_cv(name, FALSE);
56 croak("invalid subroutine reference or name");
57 if (CvFLAGS(sub) & CVf_METHOD)
58 XPUSHs(sv_2mortal(newSVpv("method", 0)));
59 if (CvFLAGS(sub) & CVf_LOCKED)
60 XPUSHs(sv_2mortal(newSVpv("locked", 0)));