package Psh
::Strategy
::Perl
;
If the input line starts with p! all remaining input will be
sent unchanged to the perl interpreter
@Psh::Strategy
::Perl
::ISA
=('Psh::Strategy');
return Psh
::Strategy
::CONSUME_LINE
;
return qw(built_in brace);
return 'perl evaluation' if substr(${$_[1]},0,2) eq 'p!';
${$_[1]}= substr(${$_[1]},2);
Psh
::Strategy
::Eval
::execute
(@_);