SYNOPSIS
use Mojo::Client;
my $client = Mojo::Client->new;
# Grab the latest Mojolicious release :)
my $latest = 'http://mojolicious.org/Mojolicious-latest.tar.gz';
print $client->get($latest)->success->body;
# Quick JSON request
my $trends = 'http://search.twitter.com/trends.json';
print $client->get($trends)->success->json->{trends}->[0]->{name};
# Extract data from HTML and XML resources
my $home = 'http://mojolicious.org';
print $client->get($home)->success->dom->at('title')->text;
# Form post with exception handling
my $cpan = 'http://search.cpan.org/search';
my $search = {q => 'mojo'};
my $tx = $client->post_form($cpan => $search);
if (my $res = $tx->success) { print $res->body }
else {
my ($message, $code) = $tx->error;
print "Error: $message";
}
# Parallel requests
my $callback = sub { print shift->res->body };
$client->get('http://mojolicious.org' => $callback);
$client->get('http://search.cpan.org' => $callback);
$client->process;
# Async request
$client->async->get(
'http://kraih.com' => sub {
my $client = shift;
print $client->res->code;
}
)->process;
# Websocket request
$client->websocket(
'ws://websockets.org:8787' => sub {
my $client = shift;
$client->receive_message(
sub {
my ($client, $message) = @_;
print "$message\n";
$client->finish;
}
);
$client->send_message('hi there!');
}
)->process;
DESCRIPTION
Mojo::Client is a full featured async io HTTP 1.1 and WebSocket client with "IPv6", "TLS", "epoll" and "kqueue" support.Optional modules IO::KQueue, IO::Epoll, IO::Socket::INET6 and IO::Socket::SSL are supported transparently and used if installed.
ATTRIBUTES
Mojo::Client implements the following attributes.app
my $app = $client->app; $client = $client->app(MyApp->new);
A Mojo application to associate this client with. If set, local requests will be processed in this application.
cookie_jar
my $cookie_jar = $client->cookie_jar; $client = $client->cookie_jar(Mojo::CookieJar->new);
Cookie jar to use for this clients requests, by default a Mojo::CookieJar object.
http_proxy
my $proxy = $client->http_proxy; $client = $client->http_proxy('http://sri:[email protected]:8080');
Proxy server to use for HTTP and WebSocket requests.
https_proxy
my $proxy = $client->https_proxy; $client = $client->https_proxy('http://sri:[email protected]:8080');
Proxy server to use for HTTPS and WebSocket requests.
ioloop
my $loop = $client->ioloop; $client = $client->ioloop(Mojo::IOLoop->new);
Loop object to use for io operations, by default a Mojo::IOLoop object will be used.
keep_alive_timeout
my $keep_alive_timeout = $client->keep_alive_timeout; $client = $client->keep_alive_timeout(15);
Timeout in seconds for keep alive between requests, defaults to 15.
log
my $log = $client->log; $client = $client->log(Mojo::Log->new);
A Mojo::Log object used for logging, by default the application log will be used.
max_keep_alive_connections
my $max_keep_alive_connections = $client->max_keep_alive_connections; $client = $client->max_keep_alive_connections(5);
Maximum number of keep alive connections that the client will retain before it starts closing the oldest cached ones, defaults to 5.
max_redirects
my $max_redirects = $client->max_redirects; $client = $client->max_redirects(3);
Maximum number of redirects the client will follow before it fails, defaults to 0.
tls_ca_file
my $tls_ca_file = $client->tls_ca_file; $client = $client->tls_ca_file('/etc/tls/cacerts.pem');
TLS certificate authority file to use, defaults to the "MOJO_CA_FILE" environment variable. Note that IO::Socket::SSL must be installed for HTTPS support.
tls_verify_cb
my $tls_verify_cb = $client->tls_verify_cb; $client = $client->tls_verify_cb(sub {...});
Callback to verify your TLS connection, by default the client will accept most certificates. Note that IO::Socket::SSL must be installed for HTTPS support.
tx
$client->tx;
The last finished transaction, only available from callbacks.
websocket_timeout
my $websocket_timeout = $client->websocket_timeout; $client = $client->websocket_timeout(300);
Timeout in seconds for WebSockets to be idle, defaults to 300.
METHODS
Mojo::Client inherits all methods from Mojo::Base and implements the following new ones.new
my $client = Mojo::Client->new;
Construct a new Mojo::Client object. Use "singleton" if you want to share keep alive connections and cookies with other clients
async
my $async = $client->async;
Clone client instance and start using the global shared Mojo::IOLoop singleton.
$client->async->get('http://mojolicious.org' => sub { my $client = shift; print $client->res->body; })->process;
build_form_tx
my $tx = $client->build_form_tx('http://kraih.com/foo' => {test => 123}); my $tx = $client->build_form_tx( 'http://kraih.com/foo' 'UTF-8', {test => 123} ); my $tx = $client->build_form_tx( 'http://kraih.com/foo', {test => 123}, {Expect => '100-continue'} ); my $tx = $client->build_form_tx( 'http://kraih.com/foo', 'UTF-8', {test => 123}, {Expect => '100-continue'} ); my $tx = $client->build_form_tx( 'http://kraih.com/foo', {file => {file => '/foo/bar.txt'}} ); my $tx = $client->build_form_tx( 'http://kraih.com/foo', {file => {content => 'lalala'}} ); my $tx = $client->build_form_tx( 'http://kraih.com/foo', {myzip => {file => $asset, filename => 'foo.zip'}} );
Versatile transaction builder for forms.
my $tx = $client->build_form_tx('http://kraih.com/foo' => {test => 123}); $tx->res->body(sub { print $_[1] }); $client->process($tx);
build_tx
my $tx = $client->build_tx(GET => 'http://mojolicious.org'); my $tx = $client->build_tx( GET => 'http://kraih.com' => {Connection => 'close'} ); my $tx = $client->build_tx( POST => 'http://kraih.com' => {Connection => 'close'} => 'Hi!' );
Versatile general purpose transaction builder.
my $tx = $client->build_tx(GET => 'http://mojolicious.org'); $tx->res->body(sub { print $_[1] }); $client->process($tx);
clone
my $clone = $client->clone;
Clone client instance.
delete
my $tx = $client->delete('http://kraih.com'); my $tx = $client->delete('http://kraih.com' => {Connection => 'close'}); my $tx = $client->delete( 'http://kraih.com' => {Connection => 'close'} => 'Hi!' ); $client = $client->delete('http://kraih.com' => sub {...}); $client = $client->delete( 'http://kraih.com' => {Connection => 'close'} => sub {...} ); $client = $client->delete( 'http://kraih.com' => {Connection => 'close'} => 'Hi!' => sub {...} );
Send a HTTP "DELETE" request.
finish
$client->finish;
Finish the WebSocket connection, only available from callbacks.
finished
$client->finished(sub {...});
Callback signaling that peer finished the WebSocket connection, only available from callbacks.
$client->finished(sub { my $client = shift; });
get
my $tx = $client->get('http://kraih.com'); my $tx = $client->get('http://kraih.com' => {Connection => 'close'}); my $tx = $client->get( 'http://kraih.com' => {Connection => 'close'} => 'Hi!' ); $client = $client->get('http://kraih.com' => sub {...}); $client = $client->get( 'http://kraih.com' => {Connection => 'close'} => sub {...} ); $client = $client->get( 'http://kraih.com' => {Connection => 'close'} => 'Hi!' => sub {...} );
Send a HTTP "GET" request.
head
my $tx = $client->head('http://kraih.com'); my $tx = $client->head('http://kraih.com' => {Connection => 'close'}); my $tx = $client->head( 'http://kraih.com' => {Connection => 'close'} => 'Hi!' ); $client = $client->head('http://kraih.com' => sub {...}); $client = $client->head( 'http://kraih.com' => {Connection => 'close'} => sub {...} ); $client = $client->head( 'http://kraih.com' => {Connection => 'close'} => 'Hi!' => sub {...} );
Send a HTTP "HEAD" request.
post
my $tx = $client->post('http://kraih.com'); my $tx = $client->post('http://kraih.com' => {Connection => 'close'}); my $tx = $client->post( 'http://kraih.com' => {Connection => 'close'} => 'Hi!' ); $client = $client->post('http://kraih.com' => sub {...}); $client = $client->post( 'http://kraih.com' => {Connection => 'close'} => sub {...} ); $client = $client->post( 'http://kraih.com', {Connection => 'close'}, 'message body', sub {...} ); $client = $client->post( 'http://kraih.com' => {Connection => 'close'} => 'Hi!' => sub {...} );
Send a HTTP "POST" request.
post_form
my $tx = $client->post_form('http://kraih.com/foo' => {test => 123}); my $tx = $client->post_form( 'http://kraih.com/foo' 'UTF-8', {test => 123} ); my $tx = $client->post_form( 'http://kraih.com/foo', {test => 123}, {Expect => '100-continue'} ); my $tx = $client->post_form( 'http://kraih.com/foo', 'UTF-8', {test => 123}, {Expect => '100-continue'} ); my $tx = $client->post_form( 'http://kraih.com/foo', {file => {file => '/foo/bar.txt'}} ); my $tx= $client->post_form( 'http://kraih.com/foo', {file => {content => 'lalala'}} ); my $tx = $client->post_form( 'http://kraih.com/foo', {myzip => {file => $asset, filename => 'foo.zip'}} ); $client = $client->post_form('/foo' => {test => 123}, sub {...}); $client = $client->post_form( 'http://kraih.com/foo', 'UTF-8', {test => 123}, sub {...} ); $client = $client->post_form( 'http://kraih.com/foo', {test => 123}, {Expect => '100-continue'}, sub {...} ); $client = $client->post_form( 'http://kraih.com/foo', 'UTF-8', {test => 123}, {Expect => '100-continue'}, sub {...} ); $client = $client->post_form( 'http://kraih.com/foo', {file => {file => '/foo/bar.txt'}}, sub {...} ); $client = $client->post_form( 'http://kraih.com/foo', {file => {content => 'lalala'}}, sub {...} ); $client = $client->post_form( 'http://kraih.com/foo', {myzip => {file => $asset, filename => 'foo.zip'}}, sub {...} );
Send a HTTP "POST" request with form data.
process
$client = $client->process; $client = $client->process(@transactions); $client = $client->process(@transactions => sub {...});
Process all queued transactions. Will be blocking unless you have a global shared ioloop and use the "async" method.
put
my $tx = $client->put('http://kraih.com'); my $tx = $client->put('http://kraih.com' => {Connection => 'close'}); my $tx = $client->put( 'http://kraih.com' => {Connection => 'close'} => 'Hi!' ); $client = $client->put('http://kraih.com' => sub {...}); $client = $client->put( 'http://kraih.com' => {Connection => 'close'} => sub {...} ); $client = $client->put( 'http://kraih.com' => {Connection => 'close'} => 'Hi!' => sub {...} );
Send a HTTP "PUT" request.
queue
$client = $client->queue(@transactions); $client = $client->queue(@transactions => sub {...});
Queue a list of transactions for processing. HTTP 1.1 transactions can also be pipelined by wrapping them in an arrayref. Note that following redirects and WebSocket upgrades don't work for pipelined transactions.
$client->queue([$tx, $tx2] => sub { my ($client, $p) = @_; });
receive_message
$client->receive_message(sub {...});
Receive messages via WebSocket, only available from callbacks.
$client->receive_message(sub { my ($client, $message) = @_; });
req
my $req = $client->req;
The request object of the last finished transaction, only available from callbacks.
res
my $res = $client->res;
The response object of the last finished transaction, only available from callbacks.
singleton
my $client = Mojo::Client->singleton;
The global client object, used to access a single shared client instance from everywhere inside the process.
send_message
$client->send_message('Hi there!');
Send a message via WebSocket, only available from callbacks.
websocket
$client = $client->websocket('ws://localhost:3000' => sub {...}); $client = $client->websocket( 'ws://localhost:3000' => {'User-Agent' => 'Agent 1.0'} => sub {...} );
Open a WebSocket connection with transparent handshake.
websocket_challenge
my $solution = $client->websocket_challenge($key1, $key2, $key3);
Calculate the solution for a websocket challenge.