[Catalyst-commits] r11994 - in Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst: . Script

t0m at dev.catalyst.perl.org t0m at dev.catalyst.perl.org
Mon Nov 23 23:49:11 GMT 2009


Author: t0m
Date: 2009-11-23 23:49:10 +0000 (Mon, 23 Nov 2009)
New Revision: 11994

Modified:
   Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/CGI.pm
   Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Create.pm
   Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/FastCGI.pm
   Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Test.pm
   Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/ScriptRole.pm
Log:
And do that in a way which actually works

Modified: Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/CGI.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/CGI.pm	2009-11-23 23:43:32 UTC (rev 11993)
+++ Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/CGI.pm	2009-11-23 23:49:10 UTC (rev 11994)
@@ -5,7 +5,7 @@
 
 with 'Catalyst::ScriptRole';
 
-has '+help' => (cmd_aliases => 'h');
+__PACKAGE__->meta->get_attribute('help')->cmd_aliases('h');
 
 __PACKAGE__->meta->make_immutable;
 

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-11-23 23:43:32 UTC (rev 11993)
+++ Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Create.pm	2009-11-23 23:49:10 UTC (rev 11994)
@@ -6,7 +6,7 @@
 
 with 'Catalyst::ScriptRole';
 
-has '+help' => (cmd_aliases => 'h');
+__PACKAGE__->meta->get_attribute('help')->cmd_aliases('h');
 
 has force => (
     traits => [qw(Getopt)],

Modified: Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/FastCGI.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/FastCGI.pm	2009-11-23 23:43:32 UTC (rev 11993)
+++ Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/FastCGI.pm	2009-11-23 23:49:10 UTC (rev 11994)
@@ -7,7 +7,7 @@
 
 with 'Catalyst::ScriptRole';
 
-has '+help' => (cmd_aliases => 'h');
+__PACKAGE__->meta->get_attribute('help')->cmd_aliases('h');
 
 has listen => (
     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-11-23 23:43:32 UTC (rev 11993)
+++ Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Test.pm	2009-11-23 23:49:10 UTC (rev 11994)
@@ -4,7 +4,7 @@
 
 with 'Catalyst::ScriptRole';
 
-has '+help' => (cmd_aliases => 'h');
+__PACKAGE__->meta->get_attribute('help')->cmd_aliases('h');
 
 sub run {
     my $self = shift;

Modified: Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/ScriptRole.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/ScriptRole.pm	2009-11-23 23:43:32 UTC (rev 11993)
+++ Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/ScriptRole.pm	2009-11-23 23:49:10 UTC (rev 11994)
@@ -2,6 +2,7 @@
 use Moose::Role;
 use MooseX::Types::Moose qw/Str Bool/;
 use Pod::Usage;
+use MooseX::Getopt;
 use namespace::autoclean;
 
 with 'MooseX::Getopt';




More information about the Catalyst-commits mailing list