5 use Eval::WithLexicals;
9 $SIG{INT} = sub { warn "SIGINT\n" };
11 { package Data::Dumper; no strict 'vars';
12 $Terse = $Indent = $Useqq = $Deparse = $Sortkeys = 1;
16 #{ no warnings 'once'; $Object::Remote::Connection::DEBUG = 1; }
18 my $eval = Eval::WithLexicals->new::on($ARGV[0]||'-');
20 my $read = Term::ReadLine->new('Perl REPL');
22 my $line = $read->readline('re.pl$ ');
23 exit unless defined $line;
25 local $SIG{INT} = sub { die "Caught SIGINT" };
26 @ret = $eval->eval($line); 1;
27 } or @ret = ("Error!", $@);