2 use Eval::WithLexicals;
4 use Data::Dumper::Concise;
7 my $eval = Eval::WithLexicals->new;
8 my $read = Term::ReadLine->new('Perl REPL');
10 my $line = $read->readline('re.pl$ ');
11 exit unless defined $line;
13 local $SIG{INT} = sub { die "Caught SIGINT" };
14 @ret = $eval->eval($line);
16 @ret = ("Error!", $_);