my ($self) = shift;
my $opts = Data::OptList::mkopt([
- qw/pidfile manager nproc proc_title/,
- detach => [ 'daemon' ],
+ qw/manager nproc proc_title/,
+ pid => [ 'pidfile' ],
+ daemonize => [ 'daemon' ],
keep_stderr => [ 'keeperr' ],
listen => [ '_listen' ],
]);
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;
=head1 NAME
Run a Catalyst application as fastcgi.
+=head1 SEE ALSO
+
+L<Catalyst::ScriptRunner>
+
=head1 AUTHORS
Catalyst Contributors, see Catalyst.pm