Mojo::Transaction::HTTP - HTTP transaction
use Mojo::Transaction::HTTP; # Client my $tx = Mojo::Transaction::HTTP->new; $tx->req->method('GET'); $tx->req->url->parse('http://example.com'); $tx->req->headers->accept('application/json'); say $tx->res->code; say $tx->res->headers->content_type; say $tx->res->body; say $tx->remote_address; # Server my $tx = Mojo::Transaction::HTTP->new; say $tx->req->method; say $tx->req->url->to_abs; say $tx->req->headers->accept; say $tx->remote_address; $tx->res->code(200); $tx->res->headers->content_type('text/plain'); $tx->res->body('Hello World!');
Mojo::Transaction::HTTP is a container for HTTP transactions as described in RFC 2616.
Mojo::Transaction::HTTP inherits all events from Mojo::Transaction and can emit the following new ones.
$tx->on(request => sub { my $tx = shift; ... });
Emitted when a request is ready and needs to be handled.
$tx->on(request => sub { my $tx = shift; $tx->res->headers->header('X-Bender' => 'Bite my shiny metal ass!'); });
$tx->on(unexpected => sub { my ($tx, $res) = @_; ... });
Emitted for unexpected 1xx responses that will be ignored.
1xx
$tx->on(unexpected => sub { my $tx = shift; $tx->res->on(finish => sub { say 'Followup response is finished.' }); });
$tx->on(upgrade => sub { my ($tx, $ws) = @_; ... });
Emitted when transaction gets upgraded to a Mojo::Transaction::WebSocket object.
$tx->on(upgrade => sub { my ($tx, $ws) = @_; $ws->res->headers->header('X-Bender' => 'Bite my shiny metal ass!'); });
Mojo::Transaction::HTTP inherits all attributes from Mojo::Transaction and implements the following new ones.
my $previous = $tx->previous; $tx = $tx->previous(Mojo::Transaction->new);
Previous transaction that triggered this followup transaction.
# Path of previous request say $tx->previous->req->url->path;
Mojo::Transaction::HTTP inherits all methods from Mojo::Transaction and implements the following new ones.
$tx->client_read($bytes);
Read data client-side, used to implement user agents.
my $bytes = $tx->client_write;
Write data client-side, used to implement user agents.
my $success = $tx->is_empty;
Check transaction for HEAD request and 1xx, 204 or 304 response.
HEAD
204
304
my $success = $tx->keep_alive;
Check if connection can be kept alive.
my $redirects = $tx->redirects;
Return a list of all previous transactions that preceded this followup transaction.
# Paths of all previous requests say $_->req->url->path for @{$tx->redirects};
$tx->server_read($bytes);
Read data server-side, used to implement web servers.
my $bytes = $tx->server_write;
Write data server-side, used to implement web servers.
Mojolicious, Mojolicious::Guides, http://mojolicio.us.
To install Mojolicious, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Mojolicious
CPAN shell
perl -MCPAN -e shell install Mojolicious
For more information on module installation, please visit the detailed CPAN module installation guide.