| Mojolicious documentation | view source | Contained in the Mojolicious distribution. |
newdefaultsdispatchhandlerhelperhookpluginstartstartupMojolicious - The Web In A Box!
# Mojolicious application
package MyApp;
use Mojo::Base 'Mojolicious';
sub startup {
my $self = shift;
# Routes
my $r = $self->routes;
# Default route
$r->route('/:controller/:action/:id')->to('foo#welcome');
}
# Mojolicious controller
package MyApp::Foo;
use Mojo::Base 'Mojolicious::Controller';
# Say hello
sub welcome {
my $self = shift;
$self->render_text('Hi there!');
}
# Say goodbye from a template (foo/bye.html.ep)
sub bye { shift->render }
Back in the early days of the web, many people learned Perl because of a wonderful Perl library called CGI. It was simple enough to get started without knowing much about the language and powerful enough to keep you going, learning by doing was much fun. While most of the techniques used are outdated now, the idea behind it is not. Mojolicious is a new attempt at implementing this idea using state of the art technology.
Powerful out of the box with RESTful routes, plugins, Perl-ish templates, session management, signed cookies, testing framework, static file server, I18N, first class unicode support and much more for you to discover.
sudo sh -c "curl -L cpanmin.us | perl - Mojolicious"
use Mojolicious::Lite;
get '/' => sub { shift->render_text('Hello World!') };
app->start;
perl.
% perl hello.pl daemon Server available at http://127.0.0.1:3000.
% curl http://127.0.0.1:3000/ Hello World!
use Mojolicious::Lite;
# Simple plain text response
get '/' => sub { shift->render_text('Hello World!') };
# Route associating the "/time" URL to template in DATA section get '/time' => 'clock';
# RESTful web service sending JSON responses
get '/list/:offset' => sub {
my $self = shift;
$self->render_json({list => [0 .. $self->param('offset')]});
};
# Scrape and return information from remote sites
post '/title' => sub {
my $self = shift;
my $url = $self->param('url') || 'http://mojolicio.us';
$self->render_text(
$self->ua->get($url)->res->dom->html->head->title->text);
};
# WebSocket echo service
websocket '/echo' => sub {
my $self = shift;
$self->on_message(sub {
my ($self, $message) = @_;
$self->send_message("echo: $message");
});
};
app->start; __DATA__
@@ clock.html.ep
% my ($second, $minute, $hour) = (localtime(time))[0, 1, 2];
<%= link_to clock => begin %>
The time is <%= $hour %>:<%= $minute %>:<%= $second %>.
<% end %>
package MyApp::Example; use Mojo::Base 'Mojolicious::Controller';
# Plain text response
sub hello { shift->render_text('Hello World!') }
# Render external template "templates/example/clock.html.ep"
sub clock { shift->render }
# RESTful web service sending JSON responses
sub restful {
my $self = shift;
$self->render_json({list => [0 .. $self->param('offset')]});
}
# Scrape and return information from remote sites
sub title {
my $self = shift;
my $url = $self->param('url') || 'http://mojolicio.us';
$self->render_text(
$self->ua->get($url)->res->dom->html->head->title->text);
}
1;
package MyApp::Realtime; use Mojo::Base 'Mojolicious::Controller';
# WebSocket echo service
sub echo {
my $self = shift;
$self->on_message(sub {
my ($self, $message) = @_;
$self->send_message("echo: $message");
});
}
1;
package MyApp; use Mojo::Base 'Mojolicious';
# Runs once on application startup
sub startup {
my $self = shift;
my $r = $self->routes;
# Create a route at "/example" for the "MyApp::Example" controller
my $example = $r->route('/example')->to('example#');
# Connect these HTTP GET routes to actions in the controller
# (paths are relative to the controller)
$example->get('/')->to('#hello');
$example->get('/time')->to('#clock');
$example->get('/list/:offset')->to('#restful');
# All common HTTP verbs are supported
$example->post('/title')->to('#title');
# ... and much, much more
# (including multiple, auto-discovered controllers)
$r->websocket('/echo')->to('realtime#echo');
}
1;
% my ($second, $minute, $hour) = (localtime(time))[0, 1, 2];
<%= link_to clock => begin %>
The time is <%= $hour %>:<%= $minute %>:<%= $second %>.
<% end %>
.---------------------------------------------------------------. | | | .----------------------------------------------' | | .--------------------------------------------. | Application | | Mojolicious::Lite | | | '--------------------------------------------' | | .--------------------------------------------. | | | Mojolicious | '----------------' '--------------------------------------------' .---------------------------------------------------------------. | Mojo | '---------------------------------------------------------------' .-------. .-----------. .--------. .------------. .-------------. | CGI | | FastCGI | | PSGI | | HTTP 1.1 | | WebSocket | '-------' '-----------' '--------' '------------' '-------------'
controller_class my $class = $app->controller_class;
$app = $app->controller_class('Mojolicious::Controller');
mode my $mode = $app->mode;
$app = $app->mode('production');
MOJO_MODE or
development.
Mojo will name the log file after the current mode and modes other than
development will result in limited log output.
$mode_mode.
sub development_mode {
my $self = shift;
}
sub production_mode {
my $self = shift;
}
on_process my $process = $app->on_process;
$app = $app->on_process(sub {...});
dispatch method.
Generally you will use a plugin or controller instead of this, consider it
the sledgehammer in your toolbox.
$app->on_process(sub {
my ($self, $c) = @_;
$self->dispatch($c);
});
pluginsmy $plugins = $app->plugins; $app = $app->plugins(Mojolicious::Plugins->new);
renderermy $renderer = $app->renderer; $app = $app->renderer(Mojolicious::Renderer->new);
routesmy $routes = $app->routes; $app = $app->routes(Mojolicious::Routes->new);
sub startup {
my $self = shift;
my $r = $self->routes;
$r->route('/:controller/:action')->to('test#welcome');
}
secret my $secret = $app->secret;
$app = $app->secret('passw0rd');
sessionsmy $sessions = $app->sessions; $app = $app->sessions(Mojolicious::Sessions->new);
staticmy $static = $app->static; $app = $app->static(Mojolicious::Static->new);
public directory, by default a
Mojolicious::Static object.
typesmy $types = $app->types; $app = $app->types(Mojolicious::Types->new);
$app->types->type(twitter => 'text/tweet');
newmy $app = Mojolicious->new;
defaults my $defaults = $app->defaults;
my $foo = $app->defaults('foo');
$app = $app->defaults({foo => 'bar'});
$app = $app->defaults(foo => 'bar');
$app->defaults->{foo} = 'bar';
my $foo = $app->defaults->{foo};
delete $app->defaults->{foo};
dispatch$app->dispatch($c);
handler$tx = $app->handler($tx);
helper $app->helper(foo => sub {...});
ep templates.
# Helper
$app->helper(add => sub { $_[1] + $_[2] });
# Controller/Application my $result = $self->add(2, 3);
# Template <%= add 2, 3 %>
hook $app->hook(after_dispatch => sub {...});
Triggered right after the transaction is built and before the HTTP request gets parsed. One use case would be upload progress bars. (Passed the transaction and application instances)
$app->hook(after_build_tx => sub {
my ($tx, $app) = @_;
});
Triggered right before the static and routes dispatchers start their work. Very useful for rewriting incoming requests and other preprocessing tasks. (Passed the default controller instance)
$app->hook(before_dispatch => sub {
my $self = shift;
});
Triggered after the static dispatcher determined if a static file should be served and before the routes dispatcher starts its work, the callbacks of this hook run in reverse order. Mostly used for custom dispatchers and postprocessing static file responses. (Passed the default controller instance)
$app->hook(after_static_dispatch => sub {
my $self = shift;
});
Triggered right before the renderer turns the stash into a response. Very useful for making adjustments to the stash right before rendering. (Passed the current controller instance and argument hash)
$app->hook(before_render => sub {
my ($self, $args) = @_;
});
Note that this hook is EXPERIMENTAL and might change without warning!
Triggered after a response has been rendered, the callbacks of this hook run
in reverse order.
Note that this hook can trigger before after_static_dispatch due to its
dynamic nature.
Useful for all kinds of postprocessing tasks.
(Passed the current controller instance)
$app->hook(after_dispatch => sub {
my $self = shift;
});
plugin $app->plugin('something');
$app->plugin('something', foo => 23);
$app->plugin('something', {foo => 23});
$app->plugin('Foo::Bar');
$app->plugin('Foo::Bar', foo => 23);
$app->plugin('Foo::Bar', {foo => 23});
Very versatile route condition for arbitrary callbacks.
Change the application charset.
Perl-ish configuration files.
General purpose helper collection.
Renderer for plain embedded Perl templates.
Renderer for more sophisiticated embedded Perl templates.
Route condition for all kinds of headers.
Internationalization helpers.
JSON configuration files.
Mount whole Mojolicious applications.
Renderer for POD files and documentation browser.
Add an X-Powered-By header to outgoing responses.
Log timing information.
Template specific helper collection.
start Mojolicious->start;
Mojolicious->start('daemon');
startup$app->startup;
sub startup {
my $self = shift;
}
http://mojolicio.us
#mojo on irc.perl.org
http://groups.google.com/group/mojolicious
http://github.com/kraih/mojo
Copyright (C) 2010-2011, Sebastian Riedel.
Version 1.6.1
Copyright 2011, John Resig.
Version 1-Jun-2011
Copyright (C) 2006, Google Inc.
Smiling Face With Sunglasses (u1F60E)
Tropical Drink (u1F379)
Smiling Cat Face With Heart-Shaped Eyes (u1F63B)
Snowflake (u2744)
Hot Beverage (u2615)
Comet (u2604)
Snowman (u2603)
sri@cpan.org.
Viacheslav Tykhanovskyi, vti@cpan.org.
In alphabetical order.
Abhijit Menon-Sen
Adam Kennedy
Adriano Ferreira
Al Newkirk
Alex Salimon
Alexey Likhatskiy
Anatoly Sharifulin
Andre Vieth
Andrew Fresh
Andreas Koenig
Andy Grundman
Aristotle Pagaltzis
Ashley Dev
Ask Bjoern Hansen
Audrey Tang
Ben van Staveren
Breno G. de Oliveira
Brian Duggan
Burak Gursoy
Ch Lamprecht
Charlie Brady
Chas. J. Owens IV
Christian Hansen
chromatic
Curt Tilmes
Daniel Kimsey
Danijel Tasov
David Davis
Dmitriy Shalashov
Dmitry Konstantinov
Eugene Toropov
Gisle Aas
Glen Hinkle
Graham Barr
Henry Tang
Hideki Yamamura
James Duncan
Jan Jona Javorsek
Jaroslav Muhin
Jesse Vincent
John Kingsley
Jonathan Yu
Kazuhiro Shibuya
Kevin Old
KITAMURA Akatsuki
Lars Balker Rasmussen
Leon Brocard
Maik Fischer
Marcus Ramberg
Mark Stosberg
Matthew Lineen
Maksym Komar
Maxim Vuets
Mirko Westermeier
Mons Anderson
Moritz Lenz
Nils Diewald
Oleg Zhelo
Pascal Gaudette
Paul Tomlin
Pedro Melo
Peter Edwards
Pierre-Yves Ritschard
Quentin Carbonneaux
Rafal Pocztarski
Randal Schwartz
Robert Hicks
Robin Lee
Roland Lammel
Ryan Jendoubi
Sascha Kiefer
Sergey Zasenko
Simon Bertrang
Simone Tampieri
Shu Cho
Stanis Trendelenburg
Tatsuhiko Miyagawa
Terrence Brannon
The Perl Foundation
Tomas Znamenacek
Ulrich Habel
Ulrich Kautz
Uwe Voelker
Victor Engmark
Yaroslav Korshak
Yuki Kimoto
Zak B. Elep
Copyright (C) 2008-2011, Sebastian Riedel.
This program is free software, you can redistribute it and/or modify it under the terms of the Artistic License version 2.0.
| Mojolicious documentation | view source | Contained in the Mojolicious distribution. |