Lines Matching defs:proto
4086 Perl_newMYSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
4090 if (proto)
4091 SAVEFREEOP(proto);
4100 Perl_newSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *block)
4102 return Perl_newATTRSUB(aTHX_ floor, o, proto, Nullop, block);
4106 Perl_newATTRSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
4112 char *ps = proto ? SvPVx(((SVOP*)proto)->op_sv, n_a) : Nullch;
4133 if (proto)
4134 SAVEFREEOP(proto);
4663 Perl_newANONSUB(pTHX_ I32 floor, OP *proto, OP *block)
4665 return newANONATTRSUB(floor, proto, Nullop, block);
4669 Perl_newANONATTRSUB(pTHX_ I32 floor, OP *proto, OP *attrs, OP *block)
4673 (SV*)newATTRSUB(floor, 0, proto, attrs, block)));
6097 char *proto = 0;
6120 proto = SvPV((SV*)cv, n_a);
6137 if (proto) {
6138 switch (*proto) {
6143 proto++;
6146 proto++;
6156 proto++;
6165 proto++;
6204 proto++;
6207 switch (*proto++) {
6210 e = strchr(proto, ']');
6211 if (!e || e == proto)
6220 char *p = proto;
6227 *proto = s;
6277 proto = e + 1;
6287 proto++;
6301 if (proto && !optional &&
6302 (*proto && *proto != '@' && *proto != '%' && *proto != ';'))