package ojo; use Mojo::Base -strict; use Benchmark qw(timeit timestr :hireswallclock); use Mojo::ByteStream 'b'; use Mojo::Collection 'c'; use Mojo::DOM; use Mojo::JSON 'j'; use Mojo::Util qw(dumper monkey_patch); # Silent one-liners $ENV{MOJO_LOG_LEVEL} ||= 'fatal'; sub import { # Mojolicious::Lite my $caller = caller; eval "package $caller; use Mojolicious::Lite; 1" or die $@; my $ua = $caller->app->ua; $ua->server->app->hook(around_action => sub { local $_ = $_[1]; $_[0]->() }); $ua->max_redirects(10) unless defined $ENV{MOJO_MAX_REDIRECTS}; $ua->proxy->detect unless defined $ENV{MOJO_PROXY}; # The ojo DSL monkey_patch $caller, a => sub { $caller->can('any')->(@_) and return $ua->server->app }, b => \&b, c => \&c, d => sub { _request($ua, 'DELETE', @_) }, g => sub { _request($ua, 'GET', @_) }, h => sub { _request($ua, 'HEAD', @_) }, j => \&j, n => sub (&@) { say STDERR timestr timeit($_[1] // 1, $_[0]) }, o => sub { _request($ua, 'OPTIONS', @_) }, p => sub { _request($ua, 'POST', @_) }, r => \&dumper, t => sub { _request($ua, 'PATCH', @_) }, u => sub { _request($ua, 'PUT', @_) }, x => sub { Mojo::DOM->new(@_) }; } sub _request { my $ua = shift; my $tx = $ua->start($ua->build_tx(@_)); my $err = $tx->error; warn qq/Problem loading URL "@{[$tx->req->url->to_abs]}". ($err->{message})\n/ if $err && !$err->{code}; return $tx->res; } 1; =encoding utf8 =head1 NAME ojo - Fun one-liners with Mojo! =head1 SYNOPSIS $ perl -Mojo -E 'say g("mojolicio.us")->dom->at("title")->text' =head1 DESCRIPTION A collection of automatically exported functions for fun Perl one-liners. Ten redirects will be followed by default, you can change this behavior with the C environment variable. $ MOJO_MAX_REDIRECTS=0 perl -Mojo -E 'say g("example.com")->code' Proxy detection is enabled by default, but you can disable it with the C environment variable. $ MOJO_PROXY=0 perl -Mojo -E 'say g("example.com")->body' Every L one-liner is also a L application. $ perl -Mojo -E 'get "/" => {inline => "%= time"}; app->start' get / =head1 FUNCTIONS L implements the following functions, which are automatically exported. =head2 a my $app = a('/hello' => sub { $_->render(json => {hello => 'world'}) }); Create a route with L and return the current L object. The current controller object is also available to actions as C<$_>. See also the L tutorial for more argument variations. $ perl -Mojo -E 'a("/hello" => {text => "Hello Mojo!"})->start' daemon =head2 b my $stream = b('lalala'); Turn string into a L object. $ perl -Mojo -E 'b(g("mojolicio.us")->body)->html_unescape->say' =head2 c my $collection = c(1, 2, 3); Turn list into a L object. =head2 d my $res = d('example.com'); my $res = d('http://example.com' => {Accept => '*/*'} => 'Hi!'); Perform C request with L and return resulting L object. =head2 g my $res = g('example.com'); my $res = g('http://example.com' => {Accept => '*/*'} => 'Hi!'); Perform C request with L and return resulting L object. $ perl -Mojo -E 'say g("mojolicio.us")->dom("h1, h2, h3")->text' =head2 h my $res = h('example.com'); my $res = h('http://example.com' => {Accept => '*/*'} => 'Hi!'); Perform C request with L and return resulting L object. =head2 j my $bytes = j([1, 2, 3]); my $bytes = j({foo => 'bar'}); my $value = j($bytes); Encode Perl data structure or decode JSON with L. $ perl -Mojo -E 'b(j({hello => "world!"}))->spurt("hello.json")' =head2 n n {...}; n {...} 100; Benchmark block and print the results to C, with an optional number of iterations, which defaults to C<1>. $ perl -Mojo -E 'n { say g("mojolicio.us")->code }' =head2 o my $res = o('example.com'); my $res = o('http://example.com' => {Accept => '*/*'} => 'Hi!'); Perform C request with L and return resulting L object. =head2 p my $res = p('example.com'); my $res = p('http://example.com' => {Accept => '*/*'} => 'Hi!'); Perform C request with L and return resulting L object. =head2 r my $perl = r({data => 'structure'}); Dump a Perl data structure with L. perl -Mojo -E 'say r(g("example.com")->headers->to_hash)' =head2 t my $res = t('example.com'); my $res = t('http://example.com' => {Accept => '*/*'} => 'Hi!'); Perform C request with L and return resulting L object. =head2 u my $res = u('example.com'); my $res = u('http://example.com' => {Accept => '*/*'} => 'Hi!'); Perform C request with L and return resulting L object. =head2 x my $dom = x('

Hello!

'); Turn HTML/XML input into L object. $ perl -Mojo -E 'say x(b("test.html")->slurp)->at("title")->text' =head1 SEE ALSO L, L, L. =cut