summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2014-07-04 18:13:45 -0400
committerJesse Luehrs <doy@tozt.net>2014-07-04 18:14:14 -0400
commit6ffc228ece35cfeafb33bfb5dbf2da4df659dcef (patch)
treeb23d510d6ce2c5cb24cd6c06d661c54e585e8c8e
parentc1888db54d5d6540c6510708cfbfa28f3e5bf904 (diff)
downloadreply-6ffc228ece35cfeafb33bfb5dbf2da4df659dcef.tar.gz
reply-6ffc228ece35cfeafb33bfb5dbf2da4df659dcef.zip
add -e option (#36)
-rw-r--r--lib/Reply/App.pm7
1 files changed, 6 insertions, 1 deletions
diff --git a/lib/Reply/App.pm b/lib/Reply/App.pm
index 26bd85c..5a1004d 100644
--- a/lib/Reply/App.pm
+++ b/lib/Reply/App.pm
@@ -42,7 +42,7 @@ sub run {
my $cfgfile = '.replyrc';
my $exitcode;
- my @modules;
+ my (@modules, @script_lines);
my $parsed = GetOptionsFromArray(
\@argv,
'cfg:s' => \$cfgfile,
@@ -50,6 +50,7 @@ sub run {
'b|blib' => sub { push @INC, 'blib/lib', 'blib/arch' },
'I:s@' => sub { push @INC, $_[1] },
'M:s@' => \@modules,
+ 'e:s@' => \@script_lines,
'version' => sub { $exitcode = 0; version() },
'help' => sub { $exitcode = 0; usage() },
);
@@ -84,6 +85,10 @@ sub run {
my $reply = Reply->new(%args);
$reply->step("use $_") for @modules;
+ for my $line (@script_lines) {
+ print $reply->_wrapped_plugin('prompt'), $line, "\n";
+ $reply->step($line);
+ }
$reply->run;
return 0;