NAME
ojo - Fun Oneliners With Mojo!
SYNOPSIS
perl -Mojo -e 'b(g("mojolicio.us")->dom->at("title")->text)->say'DESCRIPTION
A collection of automatically exported functions for fun Perl oneliners. Note that this module is EXPERIMENTAL and might change without warning!
FUNCTIONS
ojo implements the following functions.
a
my $app = a('/' => sub { shift->render(json => {hello => 'world'}) });Create a Mojolicious::Lite route accepting all request methods and return the application.
perl -Mojo -e 'a("/" => {text => "Hello Mojo!"})->start' daemonb
my $stream = b('lalala');Turn input into a Mojo::ByteStream object.
perl -Mojo -e 'b(g("mojolicio.us")->body)->html_unescape->say'd
my $res = d('http://mojolicio.us');
my $res = d('http://mojolicio.us', {'X-Bender' => 'X_x'});
my $res = d(
'http://mojolicio.us',
{'Content-Type' => 'text/plain'},
'Hello!'
);Perform DELETE request and turn response into a Mojo::Message::Response object.
f
my $res = f('http://kraih.com/foo' => {test => 123});
my $res = f('http://kraih.com/foo', 'UTF-8', {test => 123});
my $res = f(
'http://kraih.com/foo',
{test => 123},
{'Content-Type' => 'multipart/form-data'}
);
my $res = f(
'http://kraih.com/foo',
'UTF-8',
{test => 123},
{'Content-Type' => 'multipart/form-data'}
);
my $res = f('http://kraih.com/foo', {file => {file => '/foo/bar.txt'}});
my $res = f('http://kraih.com/foo', {file => {content => 'lalala'}});
my $res = f(
'http://kraih.com/foo',
{myzip => {file => $asset, filename => 'foo.zip'}}
);Perform a POST request for a form and turn response into a Mojo::Message::Response object.
g
my $res = g('http://mojolicio.us');
my $res = g('http://mojolicio.us', {'X-Bender' => 'X_x'});
my $res = g(
'http://mojolicio.us',
{'Content-Type' => 'text/plain'},
'Hello!'
);Perform GET request and turn response into a Mojo::Message::Response object. One redirect will be followed by default, you can change this behavior with the MOJO_MAX_REDIRECTS environment variable.
MOJO_MAX_REDIRECTS=0 perl -Mojo -e 'b(g("mojolicious.org")->code)->say'p
my $res = p('http://mojolicio.us');
my $res = p('http://mojolicio.us', {'X-Bender' => 'X_x'});
my $res = p(
'http://mojolicio.us',
{'Content-Type' => 'text/plain'},
'Hello!'
);Perform POST request and turn response into a Mojo::Message::Response object.
u
my $res = u('http://mojolicio.us');
my $res = u('http://mojolicio.us', {'X-Bender' => 'X_x'});
my $res = u(
'http://mojolicio.us',
{'Content-Type' => 'text/plain'},
'Hello!'
);Perform PUT request and turn response into a Mojo::Message::Response object.
w
w('ws://mojolicio.us' => sub {...});Open a WebSocket connection.