[Catalyst-commits] r11379 - Catalyst-Runtime/5.80/branches/better_scripts/t/lib

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-09-17 21:47:22 +0000 (Thu, 17 Sep 2009)
New Revision: 11379

Added:
   Catalyst-Runtime/5.80/branches/better_scripts/t/lib/TestAppToTestScripts.pm
Log:
Skeleton testapp for testing the args thrown to the run method by scripts

Added: Catalyst-Runtime/5.80/branches/better_scripts/t/lib/TestAppToTestScripts.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/better_scripts/t/lib/TestAppToTestScripts.pm	                        (rev 0)
+++ Catalyst-Runtime/5.80/branches/better_scripts/t/lib/TestAppToTestScripts.pm	2009-09-17 21:47:22 UTC (rev 11379)
@@ -0,0 +1,14 @@
+package TestAppToTestScripts;
+use strict;
+use warnings;
+
+our %RUN_ARGS;
+
+sub run {
+    my ($class, %opts) = @_;
+    %RUN_ARGS = %opts;
+    1; # Does this work?
+}
+
+1;
+