Mojo-Routes.pl

#!/usr/bin/env perl

package Test;
use base 'Mojolicious';

sub startup {
    my $mojo = shift;
    my $r = $mojo->routes;

    my $foo = $r->route('/foo')->to(
	cb => sub {
	    shift->render_text('/foo')
	});

    $foo->route('/bar')->to(
	cb => sub {
	    shift->render_text('/foo/bar')
	});

    $foo->route('bar')->to(
	cb => sub {
	    shift->render_text('/foobar-1')
	});

    $r->route('/foobar')->to(
	cb => sub {
	    shift->render_text('/foobar-2')
	});
};

package main;
Test->start;