Lines Matching refs:attrs
1486 S_apply_attrs(pTHX_ HV *stash, SV *target, OP *attrs, bool for_my)
1490 /* fake up C<use attributes $pkg,$rv,@attrs> */
1522 dup_attrlist(attrs))));
1528 S_apply_attrs_my(pTHX_ HV *stash, OP *target, OP *attrs, OP **imopsp)
1533 if (!attrs)
1541 apply_attrs(stash, PAD_SV(target->op_targ), attrs, TRUE);
1558 dup_attrlist(attrs)));
1596 OP *attrs = Nullop;
1607 attrs = append_elem(OP_LIST, attrs,
1620 attrs)));
1624 S_my_kid(pTHX_ OP *o, OP *attrs, OP **imopsp)
1635 my_kid(kid, attrs, imopsp);
1644 } else if (attrs) {
1652 attrs, FALSE);
1667 else if (attrs && type != OP_PUSHMARK) {
1677 apply_attrs_my(stash, o, attrs, imopsp);
1685 Perl_my_attrs(pTHX_ OP *o, OP *attrs)
1700 if (attrs)
1701 SAVEFREEOP(attrs);
1702 o = my_kid(o, attrs, &rops);
4086 Perl_newMYSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
4092 if (attrs)
4093 SAVEFREEOP(attrs);
4106 Perl_newATTRSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
4128 GV_ADDMULTI | ((block || attrs) ? 0 : GV_NOINIT),
4135 if (attrs)
4136 SAVEFREEOP(attrs);
4166 if (!block || !ps || *ps || attrs)
4188 if (!block && !attrs) {
4190 /* might have had built-in attrs applied */
4237 if (attrs) {
4241 /* Need to do a C<use attributes $stash_of_cv,\&cv,@attrs>
4263 apply_attrs(stash, rcv, attrs, FALSE);
4267 /* got here with just attrs -- work done, so bug out */
4669 Perl_newANONATTRSUB(pTHX_ I32 floor, OP *proto, OP *attrs, OP *block)
4673 (SV*)newATTRSUB(floor, 0, proto, attrs, block)));