ojo
НАЗВАНИЕ
ojo - Fun Oneliners With Mojo!
КРАТКИЙ ОБЗОР
perl -Mojo -e 'b(g("mojolicio.us")->dom->at("title")->text)->say'
ОПИСАНИЕ
A collection of automatically exported functions for fun Perl oneliners.
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' daemon
b
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("mojolicio.us")->code)->say'
h
my $res = h('http://mojolicio.us'); my $res = h('http://mojolicio.us', {'X-Bender' => 'X_x'}); my $res = h( 'http://mojolicio.us', {'Content-Type' => 'text/plain'}, 'Hello!' );
Perform HEAD
request and turn response into a Mojo::Message::Response
object.
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.
x
my $dom = x('<div>Hello!</div>');
Turn HTML5/XML input into Mojo::DOM object.
print x('<div>Hello!</div>')->at('div')->text;