DOKK / manpages / debian 12 / libmojolicious-perl / Mojo::Server.3pm.en
Mojo::Server(3pm) User Contributed Perl Documentation Mojo::Server(3pm)

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>.

2022-12-22 perl v5.36.0