X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestAppToTestScripts.pm;h=f32154a19bb5700e70166673d33dcbdabf10661e;hb=4fb27043578a31f1ffd7498d1097c817a932d173;hp=8102203049a4ef54018f3f788c940528f9b90c69;hpb=08dde9c4415a52a6e1ab0b9df9abf00449b6b092;p=catagits%2FCatalyst-Runtime.git diff --git a/t/lib/TestAppToTestScripts.pm b/t/lib/TestAppToTestScripts.pm index 8102203..f32154a 100644 --- a/t/lib/TestAppToTestScripts.pm +++ b/t/lib/TestAppToTestScripts.pm @@ -1,12 +1,12 @@ package TestAppToTestScripts; use strict; use warnings; +use Carp; -our %RUN_ARGS; +our @RUN_ARGS; sub run { - my ($class, %opts) = @_; - %RUN_ARGS = %opts; + @RUN_ARGS = @_; 1; # Does this work? }