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.

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 string into a Mojo::ByteStream object.

  perl -Mojo -e 'b(g("mojolicio.us")->body)->html_unescape->say'

c

  my $collection = c(1, 2, 3);

Turn list into a Mojo::Collection object. Note that this function is EXPERIMENTAL and might change without warning!

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;

SEE ALSO

Mojolicious, Mojolicious::Guides, http://mojolicio.us.

cpanm Mojolicious

perl -MCPAN -e shell
install Mojolicious