package Psh
::Strategy
::Brace
;
Input within curly braces will be sent unchanged to the perl
@Psh::Strategy
::Brace
::ISA
=('Psh::Strategy');
return Psh
::Strategy
::CONSUME_TOKENS
;
return 'perl evaluation' if substr(${$_[1]},0,1) eq '{';
Psh
::Strategy
::Eval
::execute
(@_);