And do that in a way which actually works

diff --git a/lib/Catalyst/Script/CGI.pm b/lib/Catalyst/Script/CGI.pm
index 842d82c..2fd965c 100644 (file)
--- a/lib/Catalyst/Script/CGI.pm
+++ b/lib/Catalyst/Script/CGI.pm
@@ -5,7 +5,7 @@ use namespace::autoclean;
 
 with 'Catalyst::ScriptRole';
 
-has '+help' => (cmd_aliases => 'h');
+__PACKAGE__->meta->get_attribute('help')->cmd_aliases('h');
 
 __PACKAGE__->meta->make_immutable;
 

diff --git a/lib/Catalyst/Script/Create.pm b/lib/Catalyst/Script/Create.pm
index 47965a6..d53427e 100644 (file)
--- a/lib/Catalyst/Script/Create.pm
+++ b/lib/Catalyst/Script/Create.pm
@@ -6,7 +6,7 @@ use namespace::autoclean;
 
 with 'Catalyst::ScriptRole';
 
-has '+help' => (cmd_aliases => 'h');
+__PACKAGE__->meta->get_attribute('help')->cmd_aliases('h');
 
 has force => (
     traits => [qw(Getopt)],

diff --git a/lib/Catalyst/Script/FastCGI.pm b/lib/Catalyst/Script/FastCGI.pm
index aadd931..ba7f096 100644 (file)
--- a/lib/Catalyst/Script/FastCGI.pm
+++ b/lib/Catalyst/Script/FastCGI.pm
@@ -7,7 +7,7 @@ use namespace::autoclean;
 
 with 'Catalyst::ScriptRole';
 
-has '+help' => (cmd_aliases => 'h');
+__PACKAGE__->meta->get_attribute('help')->cmd_aliases('h');
 
 has listen => (
     traits => [qw(Getopt)],

diff --git a/lib/Catalyst/Script/Test.pm b/lib/Catalyst/Script/Test.pm
index 8fe9d73..4b30853 100644 (file)
--- a/lib/Catalyst/Script/Test.pm
+++ b/lib/Catalyst/Script/Test.pm
@@ -4,7 +4,7 @@ use namespace::autoclean;
 
 with 'Catalyst::ScriptRole';
 
-has '+help' => (cmd_aliases => 'h');
+__PACKAGE__->meta->get_attribute('help')->cmd_aliases('h');
 
 sub run {
     my $self = shift;

diff --git a/lib/Catalyst/ScriptRole.pm b/lib/Catalyst/ScriptRole.pm
index 53432e3..bb1b7ad 100644 (file)
--- a/lib/Catalyst/ScriptRole.pm
+++ b/lib/Catalyst/ScriptRole.pm
@@ -2,6 +2,7 @@ package Catalyst::ScriptRole;
 use Moose::Role;
 use MooseX::Types::Moose qw/Str Bool/;
 use Pod::Usage;
+use MooseX::Getopt;
 use namespace::autoclean;
 
 with 'MooseX::Getopt';