use Mojo::Server::Prefork; my $prefork = Mojo::Server::Prefork->new(listen => ['http://*:8080']); $prefork->unsubscribe('request')->on(request => sub { my ($prefork, $tx) = @_; # Request my $method = $tx->req->method; my $path = $tx->req->url->path; # Response $tx->res->code(200); $tx->res->headers->content_type('text/plain'); $tx->res->body("$method request for $path!"); # Resume transaction $tx->resume; }); $prefork->run;
For better scalability (epoll, kqueue) and to provide non-blocking name resolution, SOCKS5 as well as TLS support, the optional modules EV (4.0+), Net::DNS::Native (0.15+), IO::Socket::Socks (0.64+) and IO::Socket::SSL (1.84+) will be used automatically if possible. Individual features can also be disabled with the "MOJO_NO_NNR", "MOJO_NO_SOCKS" and "MOJO_NO_TLS" environment variables.
See ``DEPLOYMENT'' in Mojolicious::Guides::Cookbook for more.
$prefork->on(finish => sub {
my ($prefork, $graceful) = @_;
...
});
Emitted when the server shuts down.
$prefork->on(finish => sub {
my ($prefork, $graceful) = @_;
say $graceful ? 'Graceful server shutdown' : 'Server shutdown';
});
$prefork->on(heartbeat => sub {
my ($prefork, $pid) = @_;
...
});
Emitted when a heartbeat message has been received from a worker.
$prefork->on(heartbeat => sub {
my ($prefork, $pid) = @_;
say "Worker $pid has a heartbeat";
});
$prefork->on(reap => sub {
my ($prefork, $pid) = @_;
...
});
Emitted when a child process exited.
$prefork->on(reap => sub {
my ($prefork, $pid) = @_;
say "Worker $pid stopped";
});
$prefork->on(spawn => sub {
my ($prefork, $pid) = @_;
...
});
Emitted when a worker process is spawned.
$prefork->on(spawn => sub {
my ($prefork, $pid) = @_;
say "Worker $pid started";
});
$prefork->on(wait => sub {
my $prefork = shift;
...
});
Emitted when the manager starts waiting for new heartbeat messages.
$prefork->on(wait => sub {
my $prefork = shift;
my $workers = $prefork->workers;
say "Waiting for heartbeat messages from $workers workers";
});
my $accepts = $prefork->accepts; $prefork = $prefork->accepts(100);
Maximum number of connections a worker is allowed to accept, before stopping gracefully and then getting replaced with a newly started worker, passed along to ``max_accepts'' in Mojo::IOLoop, defaults to 10000. Setting the value to 0 will allow workers to accept new connections indefinitely. Note that up to half of this value can be subtracted randomly to improve load balancing, and to make sure that not all workers restart at the same time.
my $bool = $prefork->cleanup; $prefork = $prefork->cleanup($bool);
Delete ``pid_file'' automatically once it is not needed anymore, defaults to a true value.
my $timeout = $prefork->graceful_timeout; $prefork = $prefork->graceful_timeout(15);
Maximum amount of time in seconds stopping a worker gracefully may take before being forced, defaults to 120. Note that this value should usually be a little larger than the maximum amount of time you expect any one request to take.
my $interval = $prefork->heartbeat_interval; $prefork = $prefork->heartbeat_interval(3);
Heartbeat interval in seconds, defaults to 5.
my $timeout = $prefork->heartbeat_timeout; $prefork = $prefork->heartbeat_timeout(2);
Maximum amount of time in seconds before a worker without a heartbeat will be stopped gracefully, defaults to 30. Note that this value should usually be a little larger than the maximum amount of time you expect any one operation to block the event loop.
my $file = $prefork->pid_file;
$prefork = $prefork->pid_file('/tmp/prefork.pid');
Full path of process id file, defaults to "prefork.pid" in a temporary directory.
my $spare = $prefork->spare; $prefork = $prefork->spare(4);
Temporarily spawn up to this number of additional workers if there is a need, defaults to 2. This allows for new workers to be started while old ones are still shutting down gracefully, drastically reducing the performance cost of worker restarts.
my $workers = $prefork->workers; $prefork = $prefork->workers(10);
Number of worker processes, defaults to 4. A good rule of thumb is two worker processes per CPU core for applications that perform mostly non-blocking operations, blocking operations often require more and benefit from decreasing concurrency with ``clients'' in Mojo::Server::Daemon (often as low as 1).
my $pid = $prefork->check_pid;
Get process id for running server from ``pid_file'' or delete it if server is not running.
say 'Server is not running' unless $prefork->check_pid;
$prefork->ensure_pid_file($pid);
my $healthy = $prefork->healthy;
Number of currently active worker processes with a heartbeat.
$prefork->run;
Run server and wait for ``MANAGER SIGNALS''.