package Catalyst::Script::FastCGI;
use Moose;
-use MooseX::Types::Moose qw/Str Bool Int/;
use Data::OptList;
-use namespace::autoclean;
+use namespace::clean -except => [ 'meta' ];
sub _plack_engine_name { 'FCGI' }
has listen => (
traits => [qw(Getopt)],
cmd_aliases => 'l',
- isa => Str,
+ isa => 'Str',
is => 'ro',
documentation => 'Specify a listening port/socket',
);
has pidfile => (
traits => [qw(Getopt)],
cmd_aliases => [qw/pid p/],
- isa => Str,
+ isa => 'Str',
is => 'ro',
documentation => 'Specify a pidfile',
);
has daemon => (
traits => [qw(Getopt)],
- isa => Bool,
+ isa => 'Bool',
is => 'ro',
cmd_aliases => [qw/d detach/], # Eww, detach is here as we fucked it up.. Deliberately not documented
documentation => 'Daemonize (go into the background)',
has manager => (
traits => [qw(Getopt)],
- isa => Str,
+ isa => 'Str',
is => 'ro',
cmd_aliases => 'M',
documentation => 'Use a different FastCGI process manager class',
has keeperr => (
traits => [qw(Getopt)],
cmd_aliases => 'e',
- isa => Bool,
+ isa => 'Bool',
is => 'ro',
documentation => 'Log STDERR',
);
has nproc => (
traits => [qw(Getopt)],
cmd_aliases => 'n',
- isa => Int,
+ isa => 'Int',
is => 'ro',
documentation => 'Specify a number of child processes',
);
has proc_title => (
traits => [qw(Getopt)],
- isa => Str,
+ isa => 'Str',
is => 'ro',
lazy => 1,
builder => '_build_proc_title',
return %args;
}
-sub _application_args {
- my ($self) = shift;
+around _application_args => sub {
+ my ($orig, $self) = @_;
return (
$self->listen,
{
+ %{ $self->$orig },
nproc => $self->nproc,
pidfile => $self->pidfile,
manager => $self->manager,
proc_title => $self->proc_title,
}
);
-}
+};
__PACKAGE__->meta->make_immutable;
1;