1 #define PERL_NO_GET_CONTEXT
9 if (strnEQ(attr, "method", 6))
11 else if (strnEQ(attr, "locked", 6))
17 MODULE = attrs PACKAGE = attrs
28 Perl_croak(aTHX_ "Usage: %s(Class, ...)", GvNAME(CvGV(cv)));
29 if (!PL_compcv || !(cv = CvOUTSIDE(PL_compcv)))
30 croak("can't set attributes outside a subroutine scope");
31 if (ckWARN(WARN_DEPRECATED))
32 Perl_warner(aTHX_ WARN_DEPRECATED,
33 "pragma \"attrs\" is deprecated, "
34 "use \"sub NAME : ATTRS\" instead");
35 for (i = 1; i < items; i++) {
37 char *attr = SvPV(ST(i), n_a);
38 cv_flags_t flag = get_flag(attr);
40 croak("invalid attribute name %s", attr);
53 if (SvTYPE(sub) != SVt_PVCV)
58 char *name = SvPV(sub, n_a);
59 sub = (SV*)perl_get_cv(name, FALSE);
62 croak("invalid subroutine reference or name");
63 if (CvFLAGS(sub) & CVf_METHOD)
64 XPUSHs(sv_2mortal(newSVpvn("method", 6)));
65 if (CvFLAGS(sub) & CVf_LOCKED)
66 XPUSHs(sv_2mortal(newSVpvn("locked", 6)));