pass ARGV to _run_cli to enable testing

[catagits/Web-Simple.git] / lib / Web / Simple / Application.pm

diff --git a/lib/Web/Simple/Application.pm b/lib/Web/Simple/Application.pm
index b039308..a11972c 100644 (file)
--- a/lib/Web/Simple/Application.pm
+++ b/lib/Web/Simple/Application.pm
@@ -275,7 +275,7 @@ sub run {
     return $self->_run_cgi;
   }
   unless (@ARGV && $ARGV[0] =~ m{^/}) {
-    return $self->_run_cli;
+    return $self->_run_cli(@ARGV);
   }
 
   my $path = shift @ARGV;