Context propagation into subs and evals

Select or download this

# --------------------
#  force context
...

VOID { no_implicit_returns(1) };
VOID { no_implicit_returns(0) };

Select or download this

SCALAR:    is scalar
LIST:    is list
...
LIST:    no_implicit_returns(0)    is void
VOID:    no_implicit_returns(1)    is void
VOID:    no_implicit_returns(0)    is void

Select or download this

# --------------------
# eval
...
LIST { eval "print 'eval '; return tst_context(); 'never executed'" };

#-> LIST:    eval is list

Select Code to Download