[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