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=2b460972935a60c01815281690e98f750d3eb5e4;hp=b1ddc27ae05da5f2ef5ae55494eb15bb2f475f1a;hb=8ba2999969105bb9079e0c42473d88e4b73e079a;hpb=f831720babc4818823ec8628dcc1bd032ed8220c diff --git a/lib/Catalyst/ScriptRole.pm b/lib/Catalyst/ScriptRole.pm index b1ddc27..2b46097 100644 --- a/lib/Catalyst/ScriptRole.pm +++ b/lib/Catalyst/ScriptRole.pm @@ -14,10 +14,11 @@ coerce 'Catalyst::ScriptRole::LoadableClass', via { ensure_class_loaded($_); 1 }; with 'MooseX::Getopt' => { + -version => 0.48, -excludes => [qw/ _getopt_spec_warnings _getopt_spec_exception - _getopt_full_usage + print_usage_text /], }; @@ -56,7 +57,10 @@ sub _getopt_spec_warnings { warn @_; } -sub _getopt_full_usage { +=for Pod::Coverage + print_usage_text +=cut +sub print_usage_text { my $self = shift; pod2usage(); exit 0;