4 use Eval::WithLexicals;
8 $SIG{INT} = sub { warn "SIGINT\n" };
10 { package Data::Dumper; no strict 'vars';
11 $Terse = $Indent = $Useqq = $Deparse = $Sortkeys = 1;
15 my $eval = Eval::WithLexicals->new;
16 my $read = Term::ReadLine->new('Perl REPL');
18 my $line = $read->readline('re.pl$ ');
19 exit unless defined $line;
21 local $SIG{INT} = sub { die "Caught SIGINT" };
22 @ret = $eval->eval($line); 1;
23 } or @ret = ("Error!", $@);