NAME
Mojo - The Box!
SYNOPSIS
use Mojo::Base 'Mojo';
# All the complexities of CGI, FastCGI, PSGI, HTTP and WebSockets get
# reduced to a single method call!
sub handler {
my ($self, $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;
}DESCRIPTION
Mojo provides a flexible runtime environment for Perl web frameworks. It provides all the basic tools and helpers needed to write simple web applications and higher level web frameworks such as Mojolicious.
See Mojolicious for more!
ATTRIBUTES
Mojo implements the following attributes.
home
my $home = $app->home;
$app = $app->home(Mojo::Home->new);The home directory of your application, by default a Mojo::Home object which stringifies to the actual path.
log
my $log = $app->log;
$app = $app->log(Mojo::Log->new);
The logging layer of your application, by default a Mojo::Log object.
on_build_tx
my $cb = $app->on_build_tx;
$app = $app->on_build_tx(sub {...});The transaction builder callback, by default it builds a Mojo::Transaction::HTTP object.
on_websocket
my $cb = $app->on_websocket;
$app = $app->on_websocket(sub {...});The websocket handshake callback, by default it builds a Mojo::Transaction::WebSocket object and handles the response for the handshake request.
ua
my $ua = $app->ua;
$app = $app->ua(Mojo::UserAgent->new);A full featured HTTP 1.1 user agent for use in your applications, by default a Mojo::UserAgent object.
METHODS
Mojo inherits all methods from Mojo::Base and implements the following new ones.
new
my $app = Mojo->new;Construct a new Mojo application. Will automatically detect your home directory and set up logging to log/mojo.log if there's a log directory.
handler
$tx = $app->handler($tx);The handler is the main entry point to your application or framework and will be called for each new transaction, usually a Mojo::Transaction::HTTP or Mojo::Transaction::WebSocket object.
sub handler {
my ($self, $tx) = @_;
}