requires 'Task::Weaken';
requires 'Text::Balanced'; # core in 5.8.x but mentioned for completeness
requires 'MRO::Compat';
-requires 'MooseX::Getopt' => '0.30';
+requires 'MooseX::Getopt' => '0.48';
requires 'String::RewritePrefix' => '0.004'; # Catalyst::Utils::resolve_namespace
requires 'Plack' => '0.9991'; # IIS6+7 fix middleware
requires 'Plack::Middleware::ReverseProxy' => '0.04';
sub run {
my ($self) = @_;
- $self->_getopt_full_usage if !$self->ARGV->[0];
+ $self->print_usage_text if !$self->ARGV->[0];
my $helper_class = $self->helper_class;
Class::MOP::load_class($helper_class);
my $helper = $helper_class->new( { '.newfiles' => !$self->force, mech => $self->mechanize } );
- $self->_getopt_full_usage unless $helper->mk_component( $self->application_name, @{$self->extra_argv} );
+ $self->print_usage_text unless $helper->mk_component( $self->application_name, @{$self->extra_argv} );
}
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
/],
};
warn @_;
}
-sub _getopt_full_usage {
+=for Pod::Coverage
+ print_usage_text
+=cut
+sub print_usage_text {
my $self = shift;
pod2usage();
exit 0;
use Moose;
extends 'Catalyst::Script::Create';
our $help;
- sub _getopt_full_usage { $help++ }
+ sub print_usage_text { $help++ }
}
{
use Moose;
with 'Catalyst::ScriptRole';
our $help;
- sub _getopt_full_usage { $help++ }
+ sub print_usage_text { $help++ }
}
test('--help');