Gecko [ www.vortexaion.com ]

Name	Size	Permission	Date
Algorithm	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Alien	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Alt	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Apache	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
App	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
AppConfig	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Archive	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Authen	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
B	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
BerkeleyDB	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Bundle	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Bytes	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
CGI	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
CPAN	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
CPANPLUS	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Canary	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Capture	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Carp	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Class	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Clone	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Compress	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Config	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Context	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Convert	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Cpanel	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Crypt	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
DBD	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
DBI	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
DBIx	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
DBM	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Dancer	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Dancer2	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Data	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Date	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
DateTime	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Devel	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Digest	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Dist	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Email	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Encode	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Eval	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Excel	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Exception	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Exporter	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
ExtUtils	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
FFI	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
File	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
GD	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Graphics	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
HTML	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
HTTP	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Hash	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Hook	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
IO	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
IPC	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Imager	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
JSON	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
LWP	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
List	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Log	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
MIME	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Mail	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Math	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Method	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Mock	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Modern	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Module	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Mojo	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
MojoX	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Mojolicious	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Moo	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
MooX	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Moose	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
MooseX	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Mozilla	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Net	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Number	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
OLE	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Object	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
OpenGL	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
PAR	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
POD2	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
PPI	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
PPM	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Package	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Params	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Parse	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Path	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Perl	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
PerlIO	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Pod	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Portable	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Probe	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Role	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
SOAP	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
SQL	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Scope	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Sort	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Specio	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Spiffy	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Spreadsheet	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
StackTrace	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
String	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Sub	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Syntax	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Sys	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
TAP	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Task	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Template	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Term	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Test	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Test2	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Text	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Throwable	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Tie	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Time	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Tree	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Types	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Unicode	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Variable	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
WWW	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Win32	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Win32API	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
XML	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
YAML	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
auto	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
common	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
lib	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
libwww	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
local	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
namespace	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
odern	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
AppConfig.pm	31.7 KB	-rw-rw-rw-	2015-03-02 00:23
BerkeleyDB.pm	42.09 KB	-rw-rw-rw-	2020-09-17 12:21
BerkeleyDB.pod	80.17 KB	-rw-rw-rw-	2020-09-17 11:57
CGI.pm	122.63 KB	-rw-rw-rw-	2020-09-25 17:21
CGI.pod	66.13 KB	-rw-rw-rw-	2020-06-22 11:29
CPANPLUS.pm	7.05 KB	-rw-rw-rw-	2020-12-19 12:30
Clone.pm	2.29 KB	-rw-rw-rw-	2020-04-24 00:46
CryptX.pm	4.69 KB	-rw-rw-rw-	2020-08-25 11:02
DBI.pm	310.74 KB	-rw-rw-rw-	2020-01-31 17:27
DB_File.pm	67.74 KB	-rw-rw-rw-	2021-01-24 16:36
DDP.pm	530 B	-rw-rw-rw-	2015-05-30 02:50
DateTime.pm	132.7 KB	-rw-rw-rw-	2020-12-05 00:20
FCGI.pm	5.72 KB	-rw-rw-rw-	2019-12-14 20:22
Fh.pm	166 B	-rw-rw-rw-	2020-09-25 17:20
GD.pm	67.49 KB	-rw-rw-rw-	2020-09-24 16:52
Imager.pm	124.3 KB	-rw-rw-rw-	2020-06-14 07:15
Importer.pm	41.53 KB	-rw-rw-rw-	2020-08-17 01:24
JSON.pm	61.08 KB	-rw-rw-rw-	2021-01-24 02:09
LWP.pm	21.17 KB	-rw-rw-rw-	2021-01-07 23:21
MailTools.pm	458 B	-rw-rw-rw-	2019-05-21 18:26
MailTools.pod	2.24 KB	-rw-rw-rw-	2019-05-21 18:26
Mojo.pm	1.61 KB	-rw-rw-rw-	2021-01-17 16:56
Mojolicious.pm	29.21 KB	-rw-rw-rw-	2021-01-17 16:57
Moo.pm	33.61 KB	-rw-rw-rw-	2020-11-25 02:58
Moose.pm	38.63 KB	-rw-rw-rw-	2020-12-19 02:06
OLE.pm	4.28 KB	-rw-rw-rw-	2013-11-28 21:21
OpenGL.pm	140.62 KB	-rw-rw-rw-	2016-10-08 23:11
OpenGL.pod	37.33 KB	-rw-rw-rw-	2016-10-08 23:12
PAR.pm	40.34 KB	-rw-rw-rw-	2019-05-25 01:14
PPI.pm	29.52 KB	-rw-rw-rw-	2019-07-09 19:15
PPM.pm	75.77 KB	-rw-rw-rw-	2020-02-07 11:26
PadWalker.pm	4.1 KB	-rw-rw-rw-	2020-09-27 16:22
PkgConfig.pm	46.95 KB	-rw-rw-rw-	2020-11-11 12:32
Portable.pm	6.49 KB	-rw-rw-rw-	2020-02-07 22:46
Socket6.pm	9.55 KB	-rw-rw-rw-	2018-09-30 08:22
Specio.pm	14.83 KB	-rw-rw-rw-	2020-03-14 19:47
Spiffy.pm	15.12 KB	-rw-rw-rw-	2014-08-16 23:19
Spiffy.pod	17.75 KB	-rw-rw-rw-	2014-08-16 23:19
Template.pm	24.46 KB	-rw-rw-rw-	2020-07-14 01:47
Throwable.pm	4.4 KB	-rw-rw-rw-	2015-07-01 17:46
TimeDate.pm	267 B	-rw-rw-rw-	2020-05-19 21:30
V.pm	4.18 KB	-rw-rw-rw-	2007-11-07 02:08
XString.pm	1.76 KB	-rw-rw-rw-	2020-10-20 21:56
YAML.pm	3.12 KB	-rw-rw-rw-	2020-01-28 00:10
YAML.pod	22.62 KB	-rw-rw-rw-	2020-01-28 00:10
aliased.pm	9.98 KB	-rw-rw-rw-	2015-01-03 22:39
alienfile.pm	15.78 KB	-rw-rw-rw-	2021-01-11 23:36
dbixs_rev.pl	1.5 KB	-rw-rw-rw-	2013-04-05 02:17
enum.pm	10.63 KB	-rw-rw-rw-	2015-10-27 23:37
metaclass.pm	3.23 KB	-rw-rw-rw-	2020-12-19 02:06
mkconsts.pl	38.4 KB	-rw-rw-rw-	2019-02-05 22:12
ntheory.pm	14.33 KB	-rw-rw-rw-	2018-11-15 20:49
ojo.pm	7.04 KB	-rw-rw-rw-	2021-01-17 16:57
oo.pm	1.19 KB	-rw-rw-rw-	2020-09-02 14:16
oose.pm	2.62 KB	-rw-rw-rw-	2020-12-19 02:06
pler.pm	9.76 KB	-rw-rw-rw-	2010-11-29 09:50
ppm.xml	600 B	-rw-rw-rw-	2023-11-19 11:41
scan.pl	5.68 KB	-rw-rw-rw-	2019-02-05 22:12
superclass.pm	3.71 KB	-rw-rw-rw-	2014-03-11 12:54
syntax.pm	4.24 KB	-rw-rw-rw-	2012-05-18 22:47

Rename

package ojo;
use Mojo::Base -strict;

use Benchmark qw(timeit timestr :hireswallclock);
use Mojo::ByteStream qw(b);
use Mojo::Collection qw(c);
use Mojo::DOM;
use Mojo::File qw(path);
use Mojo::JSON qw(j);
use Mojo::URL;
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 $@;
  Mojo::Base->import(-strict, $] < 5.020 ? () : (-signatures));
  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 { $ua->delete(@_)->result },
    f => \&path,
    g => sub { $ua->get(@_)->result },
    h => sub { $ua->head(@_)->result },
    j => \&j,
    l => sub { Mojo::URL->new(@_) },
    n => sub (&@) { say STDERR timestr timeit($_[1] // 1, $_[0]) },
    o => sub { $ua->options(@_)->result },
    p => sub { $ua->post(@_)->result },
    r => \&dumper,
    t => sub { $ua->patch(@_)->result },
    u => sub { $ua->put(@_)->result },
    x => sub { Mojo::DOM->new(@_) };
}

=encoding utf8

=head1 NAME

ojo - Fun one-liners with Mojo

=head1 SYNOPSIS

$ perl -Mojo -E 'say g("mojolicious.org")->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<MOJO_MAX_REDIRECTS> 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<MOJO_PROXY> environment variable.

$ MOJO_PROXY=0 perl -Mojo -E 'say g("example.com")->body'

TLS certificate verification can be disabled with the C<MOJO_INSECURE> environment variable.

$ MOJO_INSECURE=1 perl -Mojo -E 'say g("https://127.0.0.1:3000")->body'

Every L<ojo> one-liner is also a L<Mojolicious::Lite> application.

$ perl -Mojo -E 'get "/" => {inline => "%= time"}; app->start' get /

On Perl 5.20+ L<subroutine signatures|perlsub/"Signatures"> will be enabled automatically.

$ perl -Mojo -E 'a(sub ($c) { $c->render(text => "Hello!") })->start' get /

If it is not already defined, the C<MOJO_LOG_LEVEL> environment variable will be set to C<fatal>.

=head1 FUNCTIONS

L<ojo> implements the following functions, which are automatically exported.

=head2 a

my $app = a('/hello' => sub { $_->render(json => {hello => 'world'}) });

Create a route with L<Mojolicious::Lite/"any"> and return the current L<Mojolicious::Lite> object. The current
controller object is also available to actions as C<$_>. See also L<Mojolicious::Guides::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<Mojo::ByteStream> object.

$ perl -Mojo -E 'b(g("mojolicious.org")->body)->html_unescape->say'

=head2 c

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

Turn list into a L<Mojo::Collection> object.

=head2 d

my $res = d('example.com');
  my $res = d('http://example.com' => {Accept => '*/*'} => 'Hi!');
  my $res = d('http://example.com' => {Accept => '*/*'} => form => {a => 'b'});
  my $res = d('http://example.com' => {Accept => '*/*'} => json => {a => 'b'});

Perform C<DELETE> request with L<Mojo::UserAgent/"delete"> and return resulting L<Mojo::Message::Response> object.

=head2 f

my $path = f('/home/sri/foo.txt');

Turn string into a L<Mojo::File> object.

$ perl -Mojo -E 'say r j f("hello.json")->slurp'

=head2 g

my $res = g('example.com');
  my $res = g('http://example.com' => {Accept => '*/*'} => 'Hi!');
  my $res = g('http://example.com' => {Accept => '*/*'} => form => {a => 'b'});
  my $res = g('http://example.com' => {Accept => '*/*'} => json => {a => 'b'});

Perform C<GET> request with L<Mojo::UserAgent/"get"> and return resulting L<Mojo::Message::Response> object.

$ perl -Mojo -E 'say g("mojolicious.org")->dom("h1")->map("text")->join("\n")'

=head2 h

my $res = h('example.com');
  my $res = h('http://example.com' => {Accept => '*/*'} => 'Hi!');
  my $res = h('http://example.com' => {Accept => '*/*'} => form => {a => 'b'});
  my $res = h('http://example.com' => {Accept => '*/*'} => json => {a => 'b'});

Perform C<HEAD> request with L<Mojo::UserAgent/"head"> and return resulting L<Mojo::Message::Response> 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<Mojo::JSON/"j">.

$ perl -Mojo -E 'f("hello.json")->spurt(j {hello => "world!"})'

=head2 l

my $url = l('https://mojolicious.org');

Turn a string into a L<Mojo::URL> object.

$ perl -Mojo -E 'say l("/perldoc")->to_abs(l("https://mojolicious.org"))'

=head2 n

n {...};
  n {...} 100;

Benchmark block and print the results to C<STDERR>, with an optional number of iterations, which defaults to C<1>.

$ perl -Mojo -E 'n { say g("mojolicious.org")->code }'

=head2 o

my $res = o('example.com');
  my $res = o('http://example.com' => {Accept => '*/*'} => 'Hi!');
  my $res = o('http://example.com' => {Accept => '*/*'} => form => {a => 'b'});
  my $res = o('http://example.com' => {Accept => '*/*'} => json => {a => 'b'});

Perform C<OPTIONS> request with L<Mojo::UserAgent/"options"> and return resulting L<Mojo::Message::Response> object.

=head2 p

my $res = p('example.com');
  my $res = p('http://example.com' => {Accept => '*/*'} => 'Hi!');
  my $res = p('http://example.com' => {Accept => '*/*'} => form => {a => 'b'});
  my $res = p('http://example.com' => {Accept => '*/*'} => json => {a => 'b'});

Perform C<POST> request with L<Mojo::UserAgent/"post"> and return resulting L<Mojo::Message::Response> object.

=head2 r

my $perl = r({data => 'structure'});

Dump a Perl data structure with L<Mojo::Util/"dumper">.

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!');
  my $res = t('http://example.com' => {Accept => '*/*'} => form => {a => 'b'});
  my $res = t('http://example.com' => {Accept => '*/*'} => json => {a => 'b'});

Perform C<PATCH> request with L<Mojo::UserAgent/"patch"> and return resulting L<Mojo::Message::Response> object.

=head2 u

my $res = u('example.com');
  my $res = u('http://example.com' => {Accept => '*/*'} => 'Hi!');
  my $res = u('http://example.com' => {Accept => '*/*'} => form => {a => 'b'});
  my $res = u('http://example.com' => {Accept => '*/*'} => json => {a => 'b'});

Perform C<PUT> request with L<Mojo::UserAgent/"put"> and return resulting L<Mojo::Message::Response> object.

=head2 x

my $dom = x('<div>Hello!</div>');

Turn HTML/XML input into L<Mojo::DOM> object.

$ perl -Mojo -E 'say x(f("test.html")->slurp)->at("title")->text'

=head1 SEE ALSO

L<Mojolicious>, L<Mojolicious::Guides>, L<https://mojolicious.org>.

=cut