Mojo::Server − HTTP/WebSocket server base class
package
Mojo::Server::MyServer;
use Mojo::Base 'Mojo::Server', −signatures;
sub run ($self) {
# Get a transaction
my $tx = $self−>build_tx;
# Emit "request" event
$self−>emit(request => $tx);
}
Mojo::Server is an abstract base class for HTTP/WebSocket servers and server interfaces, like Mojo::Server::CGI, Mojo::Server::Daemon, Mojo::Server::Hypnotoad, Mojo::Server::Morbo, Mojo::Server::Prefork and Mojo::Server::PSGI.
Mojo::Server inherits all events from Mojo::EventEmitter and can emit the following new ones.
$server−>on(request => sub ($server, $tx) {...});
Emitted when a request is ready and needs to be handled.
$server−>on(request
=> sub ($server, $tx) {
$tx−>res−>code(200);
$tx−>res−>headers−>content_type('text/plain');
$tx−>res−>body('Hello World!');
$tx−>resume;
});
Mojo::Server implements the following attributes.
my $app =
$server−>app;
$server =
$server−>app(MojoSubclass−>new);
Application this server handles, defaults to a Mojo::HelloWorld object.
my $bool =
$server−>reverse_proxy;
$server = $server−>reverse_proxy($bool);
This server operates behind a reverse proxy, defaults to the value of the "MOJO_REVERSE_PROXY" environment variable or true if "trusted_proxies" is not empty.
my $proxies =
$server−>trusted_proxies;
$server = $server−>trusted_proxies(['10.0.0.0/8',
'127.0.0.1', '172.16.0.0/12', '192.168.0.0/16',
'fc00::/7']);
This server expects requests from trusted reverse proxies, defaults to the value of the "MOJO_TRUSTED_PROXIES" environment variable split on commas with optional whitespace. These proxies should be addresses or networks in CIDR form.
Mojo::Server inherits all methods from Mojo::EventEmitter and implements the following new ones.
my $app =
$server−>build_app('MyApp');
my $app = $server−>build_app('MyApp', log =>
Mojo::Log−>new);
my $app = $server−>build_app('MyApp', {log =>
Mojo::Log−>new});
Build application from class and assign it to "app".
my $tx = $server−>build_tx;
Let application build a transaction.
$server−>daemonize;
Daemonize server process.
my $app =
$server−>load_app('/home/sri/myapp.pl');
my $app = $server−>load_app('/home/sri/myapp.pl',
log => Mojo::Log−>new);
my $app = $server−>load_app('/home/sri/myapp.pl',
{log => Mojo::Log−>new});
Load application from script and assign it to "app".
say Mojo::Server−>new−>load_app('./myapp.pl')−>home;
my $server =
Mojo::Server−>new;
my $server = Mojo::Server−>new(reverse_proxy =>
1);
my $server = Mojo::Server−>new({reverse_proxy =>
1});
Construct a new Mojo::Server object and subscribe to "request" event with default request handling.
$server−>run;
Run server. Meant to be overloaded in a subclass.
Mojolicious, Mojolicious::Guides, <https://mojolicious.org>.