+ mod(scalar($2), OP_PREDEC));
+ TOKEN_GETMAD($1,$$,'o');
+ }
+
+ ;
+
+/* Constructors for anonymous data */
+anonymous: '[' expr ']'
+ { $$ = newANONLIST($2);
+ TOKEN_GETMAD($1,$$,'[');
+ TOKEN_GETMAD($3,$$,']');
+ }
+ | '[' ']'
+ { $$ = newANONLIST((OP*)NULL);
+ TOKEN_GETMAD($1,$$,'[');
+ TOKEN_GETMAD($2,$$,']');
+ }
+ | HASHBRACK expr ';' '}' %prec '(' /* { foo => "Bar" } */
+ { $$ = newANONHASH($2);
+ TOKEN_GETMAD($1,$$,'{');
+ TOKEN_GETMAD($3,$$,';');
+ TOKEN_GETMAD($4,$$,'}');
+ }
+ | HASHBRACK ';' '}' %prec '(' /* { } (';' by tokener) */
+ { $$ = newANONHASH((OP*)NULL);
+ TOKEN_GETMAD($1,$$,'{');
+ TOKEN_GETMAD($2,$$,';');
+ TOKEN_GETMAD($3,$$,'}');
+ }
+ | ANONSUB startanonsub proto subattrlist block %prec '('
+ { SvREFCNT_inc_simple_void(PL_compcv);
+ $$ = newANONATTRSUB($2, $3, $4, $5);
+ TOKEN_GETMAD($1,$$,'o');
+ OP_GETMAD($3,$$,'s');
+ OP_GETMAD($4,$$,'a');
+ }
+
+ ;
+
+/* Things called with "do" */
+termdo : DO term %prec UNIOP /* do $filename */
+ { $$ = dofile($2, IVAL($1));
+ TOKEN_GETMAD($1,$$,'o');
+ }
+ | DO block %prec '(' /* do { code */
+ { $$ = newUNOP(OP_NULL, OPf_SPECIAL, scope($2));
+ TOKEN_GETMAD($1,$$,'D');
+ }
+ | DO WORD lpar_or_qw ')' /* do somesub() */
+ { $$ = newUNOP(OP_ENTERSUB,
+ OPf_SPECIAL|OPf_STACKED,
+ op_prepend_elem(OP_LIST,
+ scalar(newCVREF(
+ (OPpENTERSUB_AMPER<<8),
+ scalar($2)
+ )),(OP*)NULL)); dep();
+ TOKEN_GETMAD($1,$$,'o');
+ TOKEN_GETMAD($3,$$,'(');
+ TOKEN_GETMAD($4,$$,')');
+ }
+ | DO WORD lpar_or_qw expr ')' /* do somesub(@args) */
+ { $$ = newUNOP(OP_ENTERSUB,
+ OPf_SPECIAL|OPf_STACKED,
+ op_append_elem(OP_LIST,
+ $4,
+ scalar(newCVREF(
+ (OPpENTERSUB_AMPER<<8),
+ scalar($2)
+ )))); dep();
+ TOKEN_GETMAD($1,$$,'o');
+ TOKEN_GETMAD($3,$$,'(');
+ TOKEN_GETMAD($5,$$,')');
+ }
+ | DO scalar lpar_or_qw ')' /* do $subref () */
+ { $$ = newUNOP(OP_ENTERSUB, OPf_SPECIAL|OPf_STACKED,
+ op_prepend_elem(OP_LIST,
+ scalar(newCVREF(0,scalar($2))), (OP*)NULL)); dep();
+ TOKEN_GETMAD($1,$$,'o');
+ TOKEN_GETMAD($3,$$,'(');
+ TOKEN_GETMAD($4,$$,')');
+ }
+ | DO scalar lpar_or_qw expr ')' /* do $subref (@args) */
+ { $$ = newUNOP(OP_ENTERSUB, OPf_SPECIAL|OPf_STACKED,
+ op_prepend_elem(OP_LIST,
+ $4,
+ scalar(newCVREF(0,scalar($2))))); dep();
+ TOKEN_GETMAD($1,$$,'o');
+ TOKEN_GETMAD($3,$$,'(');
+ TOKEN_GETMAD($5,$$,')');
+ }
+
+ ;
+
+term : termbinop
+ | termunop
+ | anonymous
+ | termdo
+ | term '?' term ':' term
+ { $$ = newCONDOP(0, $1, $3, $5);
+ TOKEN_GETMAD($2,$$,'?');
+ TOKEN_GETMAD($4,$$,':');
+ }
+ | REFGEN term /* \$x, \@y, \%z */
+ { $$ = newUNOP(OP_REFGEN, 0, mod($2,OP_REFGEN));
+ TOKEN_GETMAD($1,$$,'o');
+ }