add MYMETA files to .gitignore
[p5sagit/Eval-WithLexicals.git] / bin / tinyrepl
index 236b081..f9087ea 100755 (executable)
@@ -4,6 +4,11 @@ use strictures 1;
 use Eval::WithLexicals;
 use Term::ReadLine;
 use Data::Dumper;
+use Getopt::Long;
+
+GetOptions(
+  "plugin=s" => \my @plugins
+);
 
 $SIG{INT} = sub { warn "SIGINT\n" };
 
@@ -12,7 +17,10 @@ $SIG{INT} = sub { warn "SIGINT\n" };
   $Quotekeys = 0;
 }
 
-my $eval = Eval::WithLexicals->new;
+my $eval = @plugins
+ ? Eval::WithLexicals->with_plugins(@plugins)->new
+ : Eval::WithLexicals->new;
+
 my $read = Term::ReadLine->new('Perl REPL');
 while (1) {
   my $line = $read->readline('re.pl$ ');