Akron

package Mojolicious::Plugin::Wordlist;
use Mojo::Base 'Mojolicious::Plugin';

sub register {
    my ($plugin, $mojo) = @_;

    $plugin->{text} = "Wordlist:\n";

    $mojo->helper(
	'words' => sub {

Akron

package Mojolicious::Plugin::Test;
use Mojo::Base 'Mojolicious::Plugin';

sub register {
    my ($plugin, $mojo) = @_;
    $mojo->routes->add_shortcut(
	'test' => sub {
	    my $route = shift;
	    $route->name('test');
	    # What are the wildcards?

Akron

#/usr/bin/env perl
package Test;
use Mojo::Base 'Mojolicious';

sub startup {
    my $m = shift;

    my $r = $m->routes;

    $r->add_shortcut(

Akron

use Mojolicious::Routes;
my $r = Mojolicious::Routes->new('/(:user)');
print join(',',@{$r->pattern->symbols});

Akron

use Mojolicious::Lite;

get '/' => sub {
    my $c = shift;
    $c->write_chunk('hi',
		    sub {
		        # New c not necessary
			$c->finish;
			sleep(3);
			$c->app->log->debug('check');

Akron

#!/usr/bin/env perl
use Mojolicious::Lite;

get '/' => sub {
  my $c = shift;
  $c->render_text('Hallo!');
  $c->on_finish(
    sub {
      my $c = shift;
      sleep(3);

Akron

#!/usr/bin/env perl
use Mojolicious::Lite;

get '/' => sub {
  my $c = shift;
  $c->res->headers->content_length(5);
  $c->write(
    'Hallo' => sub {
      my $c = shift;
      sleep(3);

Akron

# Some values.
my ($a, $b, $c) = ('hallo', 'foo', 'bar');

# Emit a filter hook
$c->filter(
  'on_database_access' =>
    \$a, \$b, \$c =>
      sub {    # Do whenever all subscribers are done.
	print $a,"\n";
      }

Akron

package Mojolicious::Plugin::Filter;
use Mojo::Base 'Mojolicious::Plugin';

# Register plugin
sub register {
  my ($plugin, $mojo) = @_;

  my %filters;

  # Filter helper

Akron

package Mojolicious::Plugin::Filter2;
use Mojo::Base 'Mojolicious::Plugin';

# Register plugin
sub register {
  my ($plugin, $mojo) = @_;

  my %filters;

  # Filter helper