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

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

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

Akron

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

sub startup {
    my $m = shift;

    my $r = $m->routes;

    $r->add_shortcut(

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

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

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

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

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