9 if (strnEQ(attr, "method", 6))
11 else if (strnEQ(attr, "locked", 6))
17 MODULE = attrs PACKAGE = attrs
28 if (!compcv || !(cv = CvOUTSIDE(compcv)))
29 croak("can't set attributes outside a subroutine scope");
30 for (i = 1; i < items; i++) {
31 char *attr = SvPV(ST(i), na);
32 cv_flags_t flag = get_flag(attr);
34 croak("invalid attribute name %s", attr);
47 if (SvTYPE(sub) != SVt_PVCV)
51 char *name = SvPV(sub, na);
52 sub = (SV*)perl_get_cv(name, FALSE);
55 croak("invalid subroutine reference or name");
56 if (CvFLAGS(sub) & CVf_METHOD)
57 XPUSHs(sv_2mortal(newSVpv("method", 0)));
58 if (CvFLAGS(sub) & CVf_LOCKED)
59 XPUSHs(sv_2mortal(newSVpv("locked", 0)));