%{$self->lexicals},
%{$self->_grab_captures},
});
- @ret;
+ return $self->context eq 'list' ? @ret : $ret[0];
}
sub _grab_captures {
use Eval::WithLexicals;
use Term::ReadLine;
use Data::Dumper;
+ use Getopt::Long;
+
+ GetOptions(
+ "plugin=s" => \my @plugins
+ );
$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$ ');