[Catalyst-commits] r11025 - in Catalyst-Runtime/5.80/branches/better_scripts: lib/Catalyst lib/Catalyst/Script t/TestApp/script

dhoss at dev.catalyst.perl.org dhoss at dev.catalyst.perl.org
Tue Aug 4 00:00:59 GMT 2009


Author: dhoss
Date: 2009-08-04 00:00:57 +0000 (Tue, 04 Aug 2009)
New Revision: 11025

Modified:
   Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Create.pm
   Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Deploy.pm
   Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Server.pm
   Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Test.pm
   Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/ScriptRunner.pm
   Catalyst-Runtime/5.80/branches/better_scripts/t/TestApp/script/testapp_server.pl
Log:
removed MooseX::Command::* stuff for now


Modified: Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Create.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Create.pm	2009-08-01 21:56:37 UTC (rev 11024)
+++ Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Create.pm	2009-08-04 00:00:57 UTC (rev 11025)
@@ -1,13 +1,14 @@
 package Catalyst::Script::Create;
 use Moose;
-use Getopt::Long;
 use Pod::Usage;
 use Catalyst::Helper;
 use MooseX::Types::Moose qw/Str Bool/;
 use namespace::autoclean;
 
 with "MooseX::Getopt";
+#extends qw(MooseX::App::Cmd);
 
+
 has _app => (
     reader   => 'app',
     init_arg => 'app',

Modified: Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Deploy.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Deploy.pm	2009-08-01 21:56:37 UTC (rev 11024)
+++ Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Deploy.pm	2009-08-04 00:00:57 UTC (rev 11025)
@@ -9,6 +9,9 @@
 use FindBin;
 use lib "$FindBin::Bin/../lib";
 
+#extends qw(MooseX::App::Cmd);
+
+
 has _app => (
     reader   => 'app',
     init_arg => 'app',

Modified: Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Server.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Server.pm	2009-08-01 21:56:37 UTC (rev 11024)
+++ Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Server.pm	2009-08-04 00:00:57 UTC (rev 11025)
@@ -15,6 +15,7 @@
 use namespace::autoclean;
 
 with 'MooseX::Getopt';
+#extends qw(MooseX::App::Cmd);
 
 has debug => (
     traits => [qw(Getopt)],

Modified: Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Test.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Test.pm	2009-08-01 21:56:37 UTC (rev 11024)
+++ Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Test.pm	2009-08-04 00:00:57 UTC (rev 11025)
@@ -7,6 +7,8 @@
 use MooseX::Types::Moose qw/Str Bool/;
 use namespace::autoclean;
 
+#extends qw(MooseX::App::Cmd);
+
 has _app => (
     reader   => 'app',
     init_arg => 'app',

Modified: Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/ScriptRunner.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/ScriptRunner.pm	2009-08-01 21:56:37 UTC (rev 11024)
+++ Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/ScriptRunner.pm	2009-08-04 00:00:57 UTC (rev 11025)
@@ -1,6 +1,8 @@
 package Catalyst::ScriptRunner;
 use Moose;
+extends qw(MooseX::App::Cmd::Command);
 
+
 sub run {
     my ($self, $class, $scriptclass) = @_;
     my $classtoload = "${class}::Script::$scriptclass";

Modified: Catalyst-Runtime/5.80/branches/better_scripts/t/TestApp/script/testapp_server.pl
===================================================================
--- Catalyst-Runtime/5.80/branches/better_scripts/t/TestApp/script/testapp_server.pl	2009-08-01 21:56:37 UTC (rev 11024)
+++ Catalyst-Runtime/5.80/branches/better_scripts/t/TestApp/script/testapp_server.pl	2009-08-04 00:00:57 UTC (rev 11025)
@@ -9,5 +9,5 @@
 
 ## because this is a test
 use lib "$Bin/../../../lib";
-use Catalyst::ScriptRunner;
-Catalyst::ScriptRunner->run('TestApp','Server');
+use Catalyst::ScriptRunner -run 'TestApp' 'Server';
+




More information about the Catalyst-commits mailing list