X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FScriptRole.pm;h=af8c636c74236eb8b610e64235295b13584024ab;hp=6bea8c1a0d35c2058a674a8d7bcfe5f2a8de5489;hb=9c74923de2304b8c8f0a7a2faa0854ad9b4d3a92;hpb=fb34eb9c063c53abd061d260a30f0ca7c57a0833 diff --git a/lib/Catalyst/ScriptRole.pm b/lib/Catalyst/ScriptRole.pm index 6bea8c1..af8c636 100644 --- a/lib/Catalyst/ScriptRole.pm +++ b/lib/Catalyst/ScriptRole.pm @@ -8,7 +8,7 @@ use MooseX::Types::LoadableClass qw/LoadableClass/; use namespace::autoclean; with 'MooseX::Getopt' => { - excludes => [qw/ + -excludes => [qw/ _getopt_spec_warnings _getopt_spec_exception _getopt_full_usage @@ -22,14 +22,6 @@ has application_name => ( required => 1, ); -has help => ( - traits => ['Getopt'], - isa => Bool, - is => 'ro', - documentation => 'Display this help and exit', - cmd_aliases => ['?', 'h'], -); - has loader_class => ( isa => LoadableClass, is => 'ro', @@ -63,11 +55,6 @@ sub _getopt_full_usage { exit 0; } -before run => sub { - my $self = shift; - $self->_getopt_full_usage if $self->help; -}; - sub run { my $self = shift; $self->_run_application;