diff options
author | Jesse Luehrs <doy@tozt.net> | 2014-07-04 18:13:45 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2014-07-04 18:14:14 -0400 |
commit | 6ffc228ece35cfeafb33bfb5dbf2da4df659dcef (patch) | |
tree | b23d510d6ce2c5cb24cd6c06d661c54e585e8c8e /lib/Reply | |
parent | c1888db54d5d6540c6510708cfbfa28f3e5bf904 (diff) | |
download | reply-6ffc228ece35cfeafb33bfb5dbf2da4df659dcef.tar.gz reply-6ffc228ece35cfeafb33bfb5dbf2da4df659dcef.zip |
add -e option (#36)
Diffstat (limited to 'lib/Reply')
-rw-r--r-- | lib/Reply/App.pm | 7 |
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; |