Select Code to Download

sub capture {\@_};
# the eval here returns 1 to make for a cheap check for success.
...
};
print "Block Eval ret :",readonly(eval{capture(5)}->[0]);
print "Str Eval ret   :",readonly(eval'capture(5)'->[0]);

No eval        :1
In str eval    :1
In block eval  :1
Block Eval ret :1
Str Eval ret   :0