use MooseX::Types::Moose qw/Str Bool/;
use Pod::Usage;
use MooseX::Getopt;
-use Catalyst::Engine::Loader;
+use Catalyst::EngineLoader;
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
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',
coerce => 1,
- default => 'Catalyst::Engine::Loader',
+ default => 'Catalyst::EngineLoader',
documentation => 'The class to use to detect and load the PSGI engine',
);
has _loader => (
isa => 'Plack::Loader',
default => sub {
- shift->loader_class->new
+ my $self = shift;
+ $self->loader_class->new(application_name => $self->application_name);
},
handles => {
load_engine => 'load',
exit 0;
}
-before run => sub {
- my $self = shift;
- $self->_getopt_full_usage if $self->help;
-};
-
sub run {
my $self = shift;
$self->_run_application;
}
sub _plack_loader_args {
- my @app_args = shift->_application_args;
+ my $self = shift;
+ my @app_args = $self->_application_args;
return (port => $app_args[0]);
}