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