X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FScript%2FTest.pm;h=0164cc645912d1649ca784dc68bad878daa7ca4a;hb=eb7421fd6d808178a3b745af1fcf3e657e093b2a;hp=a05b18254d4c726da4e5057b03e5a198cf13875a;hpb=3dcfb4c8551d0c36477d7f62d87c5cb022dd0c27;p=catagits%2FCatalyst-Runtime.git

diff --git a/lib/Catalyst/Script/Test.pm b/lib/Catalyst/Script/Test.pm
index a05b182..0164cc6 100644
--- a/lib/Catalyst/Script/Test.pm
+++ b/lib/Catalyst/Script/Test.pm
@@ -1,7 +1,7 @@
 package Catalyst::Script::Test;
 use Moose;
 use Catalyst::Test ();
-use namespace::autoclean;
+use namespace::clean -except => [ 'meta' ];
 
 with 'Catalyst::ScriptRole';
 
@@ -10,11 +10,14 @@ sub run {
 
     Catalyst::Test->import($self->application_name);
 
-    print request($ARGV[0])->content  . "\n";
+    foreach my $arg (@{ $self->ARGV }) {
+        print request($arg)->content  . "\n";
+    }
 }
 
 
 __PACKAGE__->meta->make_immutable;
+1;
 
 =head1 NAME
 
@@ -31,6 +34,10 @@ Catalyst::Script::Test - Test Catalyst application on the command line
 
 Script to perform a test hit against your application and display the output.
 
+=head1 SEE ALSO
+
+L<Catalyst::ScriptRunner>
+
 =head1 AUTHORS
 
 Catalyst Contributors, see Catalyst.pm