Mojolicious - A new hope

But we’re moving south
in january:

perl -Mojo -e'g("www.bbc.co.uk")
->dom("#news_container a")
->each(sub {
b(shift->text)
->encode("UTF-8")->say
})'

Actually, it didn’t
happen just like that.

Took over Maypole.
Wanted to make
radical changes

Created Catalyst.
Wanted to make
radical changes

Wanted to target
PHP developers & Perl
6

Ease of install/porting
➜
Only Perl5 core
dependencies

• $ curl -L cpanmin.us | perl - Mojolicious
Fetching http://search.cpan.org/CPAN/authors/id/K/KR/
KRAIH/Mojolicious-0.999950.tar.gz ... OK
Conﬁguring Mojolicious-0.999950 ... OK
Building and testing Mojolicious-0.999950 for
Mojolicious ... OK
Successfully installed Mojolicious-0.999950
• Gratuitous App::cpanminus plug :)

Latest from github:
curl -L cpanmin.us | perl
- http://
lastest.mojolicio.us

A full
HTTP 1.1
compliant
stack

Mojo::Transaction
Mojo::Message::Response
Mojo::Cookie
Mojo::URL
+++

Next logical step:
Add a client on top of
this stack.

Supports IPV6,
TLS,proxies, epoll,
kqueue

Mojo == Lego
Built from reusable
bricks.

my $callback = sub {

print shift−>res−>body
};
$client−>get('http://mojolicious.org'

=> $callback);
$client−>get('http://search.cpan.org'

=> $callback);
$client−>start;

# Form post with exception handling
my $cpan = 'http://search.cpan.org/search';
my $search = {q => 'mojo'};
my $tx = $client−>post_form($cpan => $search);
if (my $res = $tx−>success) {
print $res−>body
} else {
my ($message, $code) = $tx−>error;
print "Error: $message";
}

Oneliners

Photo by http://www.ﬂickr.com/photos/st3f4n/3951143570/

Collection of single
letter commands.

g ➜ get
d ➜ delete
f ➜ form post
p ➜ post
u ➜ put
w ➜ websocket

Special Cases
b ➜ byte stream,
a ➜ Lite app

#ojo module
my $res = g( 'http://mojolicio.us',
{'Content−Type' => 'text/plain'},
'Hello!' );

perl -Mojo -e 'b(g("mojolicio.us")->dom->at("title")->text)->say'

perl -Mojo -E'g("bloomberg.com")->dom("a.story_link")->each(sub { say
shift->text; })'

perl -Mojo -E'g("digg.com")->dom("a.story-title")->each(sub { say pop, ". ",
shift->text })'

# Undocumented -Ofun Mojolicious cloud function:
perl -Mojo -e 'oO("http://www.reddit.com")->dom->ﬁnd("a.title")-
>each(sub { Oo(pop . ". " . shift->text)->say })'

Supports all CSS3
selectors that
make sense

*
E[foo=”bar”]
E:checked
E:empty
E:nth-child
E:ﬁrst-of-type
E:not(s)
EF
E>F
++++

-Ofun
If you need
performance
use libXML

DEBUG MODE:

MOJO_CLIENT_DEBUG=1
perl -Mojo -E’...’

# Streaming response
my $tx = $client−>build_tx(GET =>
'http://mojolicious.org');
$tx−>res−>body(sub { print $_[1] });
$client−>start($tx);

# Custom socket
my $tx = $client−>build_tx(GET =>
'http://mojolicious.org');
$tx−>connection($socket);
$client−>start($tx);

$res->json
Automatic JSON
deserialization

WEBSOCKET REVOLUTION!

•HTML5 protocol for long running processes

•Mojo ﬁrst Perl framework to add support

•perl -MMojolicious::Lite -e "websocket '/' =>
sub {shift->receive_message(sub { shift-
>send_message(shift)})}; shagadelic 'daemon'"

•github.com/vti - web socket goodness
•Suppports latest revision of the spec.

$client−>websocket(
'ws://websockets.org:8787' =>
sub {
my $client = shift;
$client−>on_message( sub {
my ($client, $message) = @_;
print "$messagen";
$client−>ﬁnish;
});
$client−>send_message('hiya!');
})−>start;

Browser Support messy.
Politics.

$ mojo generate lite_app tinyws
[exist] /Users/marcus

[write] /Users/marcus/tinyws

[chmod] tinyws 744

• That was easy. Now let’s check out the contents of the ﬁle

#!/usr/bin/env perl
use Mojolicious::Lite;
get '/' => 'index';
get '/:groovy' => sub {
my $self = shift;
$self->render_text(
$self->param('groovy'));
};
app->start;

__DATA__
@@ index.html.ep
% layout 'funky';
Yea baby!

@@ layouts/funky.html.ep
<!doctype html><html>
<head><title>Funky!</title></head>
<body><%== content %></body>
</html>

% ./tinyws
usage: ./tinyws COMMAND [OPTIONS]
Tip: CGI, FastCGI and PSGI environments can be automatically detected very
often and work without commands.
These commands are currently available:
cgi Start application with CGI.
daemon Start application with HTTP 1.1 and WebSocket server.
fastcgi Start application with FastCGI.
generate Generate files and directories from templates.
get Get file from URL.
hypnotoad Start application with Hypnotoad.
inflate Inflate embedded files to real files.
psgi Start application with PSGI.
routes Show available routes.
test Run unit tests.
version Show versions of installed modules.
daemon_prefork Start application with preforking HTTP 1.1 backend.

These options are available for all commands:
--home <path> Path to your applications home directory, defaults to
the value of MOJO_HOME or auto detection.
--mode <name> Run mode of your application, defaults to the value of
MOJO_MODE or development.
See './tinyws help COMMAND' for more information on a specific command.

Handles 3 different urls

• /

• /*

• /*/*

# ::Lite
get ‘/’ => ‘index’;
# sub refs for functions
post ‘/login’ => sub { .. };
# Placeholders & Actions:
get ‘/:foo’ => sub {},‘ctrl’
# All together
get '/everything/:stuff' => [stuff => qr/d+/]
=> {stuff => 23} =>
sub { shift->render('welcome'); }

ladder sub {
my $self = shift
# Authenticated
my $name = $self->param('name') || '';
return 1 if $name eq 'Bender';

# Not authenticated
$self->render('denied');
return;
}

$ mojo generate app tinyws2

[write] /Users/marcus/tinyws2/script/tinyws2

[write] /Users/marcus/tinyws2/lib/tinyws2.pm

[write] /Users/marcus/tinyws2/lib/tinyws2/Example.pm

[write] /Users/marcus/tinyws2/t/basic.t

[write] /Users/marcus/tinyws2/public/index.html

[write] /Users/marcus/tinyws2/templates/not_found.html.ep

[write] /Users/marcus/tinyws2/templates/exception.html.ep

[write] /Users/marcus/tinyws2/templates/layouts/default.html.ep

[write] /Users/marcus/tinyws2/templates/example/welcome.html.ep

Snipped out all the mkdir/chmod for brevity.

$r->route(‘/’)->to
(controller=>‘foo’,action=> ‘bar’);
('lists#new', id => 1)->name('new');
('/:controller/:action/:id')->to
('example#welcome', id => 1)

# Bridges
my $auth=$r->bridge->to(‘auth#check’);
$auth->route(...)

% my $player=$self->stash(‘players’);
%= $player; # print
%== $player; # raw
<%= player %> <%== player %> # inline style
% # Normal comment
<% # inline comment %>

.ep - prepopulates stash for you
.epl - same templates, less magic

default helpers
dumper
param
stash
layout
include
content
extends
url_for

->render
->render(template=>‘foo/bar’)
->render(controller=>‘foo’,action=>‘bar’)
->render(‘foo#bar’)
->render_text
->render_json
->render_inner
->render_partial
->pause / ->resume
->redirect_to / ->url_for

Hook based
before_dispatch
after_dispatch
after_static_dispatch
after_build_tx
Also apropriate place to add types & renders &
custom routes extension.

Mojolicious::Plugin::AgentCondition - Agent Condition
Mojolicious::Plugin::Charset - Default Charset
Mojolicious::Plugin::DefaultHelpers - Default Helpers
Mojolicious::Plugin::EpRenderer - EP Renderer
Mojolicious::Plugin::EplRenderer -EPL Renderer
Mojolicious::Plugin::HeaderCondition - Header Condition
Mojolicious::Plugin::I18n Internationalization Plugin
Mojolicious::Plugin::JsonConﬁg - JSON Conﬁguration
Mojolicious::Plugin::PodRenderer - POD Renderer
Mojolicious::Plugin::PoweredBy - Powered By Plugin
Mojolicious::Plugin::RequestTimer - Time requests

PSGI supported

out of the box

All glory to the
Hypnotoad
•Production ready standalone server

•Hot deployment using unix signals

•Set up Worker threads, pid file, reverse proxy
support through a simple config file

•Web Socket support.

$ mojo generate hypnotoad
[exists] /myapp/
[write] /myapp/hypnotoad.conf

{
listen => ['http://*:8080'],
workers => 4
};

Server:
"INT", "TERM"Shutdown server
"QUIT" Shutdown server gracefully
"TTIN" Increase worker pool by one
"TTOU" Decrease worker pool by one
"USR2" hot deployment.
Worker:
"INT", "TERM"Shutdown server
"QUIT" Shutdown server gracefully

$ perldoc Mojo::Server::Hypnotoad

-Ofun
Every ﬁle in
the distro has
a Simpsons or
Futurama quote.

You
provide
failing
test - sri
ﬁxes

Learn More:
Mojolicious::Guides
mojolicious.org
github.com/kraih/mojo

groups.google.com/group/mojolicious

Mojolicious - A new hope

Recommended

Recommended

More Related Content

What's hot

What's hot (20)

Similar to Mojolicious - A new hope

Similar to Mojolicious - A new hope (20)

Recently uploaded

Recently uploaded (20)

Mojolicious - A new hope

Editor's Notes