bin/tinyrepl

   1 #!/usr/bin/env perl
   2
   3 use strictures 1;
   4 use Eval::WithLexicals;
   5 use Term::ReadLine;
   6 use Data::Dumper;
   7
   8 $SIG{INT} = sub { warn "SIGINT\n" };
   9
  10 { package Data::Dumper; no strict 'vars';
  11   $Terse = $Indent = $Useqq = $Deparse = $Sortkeys = 1;
  12   $Quotekeys = 0;
  13 }
  14
  15 my $eval = Eval::WithLexicals->new;
  16 my $read = Term::ReadLine->new('Perl REPL');
  17 while (1) {
  18   my $line = $read->readline('re.pl$ ');
  19   exit unless defined $line;
  20   my @ret; eval {
  21     local $SIG{INT} = sub { die "Caught SIGINT" };
  22     @ret = $eval->eval($line); 1;
  23   } or @ret = ("Error!", $@);
  24   print Dumper @ret;
  25 }