From 6ffc228ece35cfeafb33bfb5dbf2da4df659dcef Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Fri, 4 Jul 2014 18:13:45 -0400
Subject: add -e option (#36)

---
 lib/Reply/App.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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;
-- 
cgit v1.2.3