routes using a root

example.pl

#!/usr/bin/env perl

# in reality this would be in a separate file
package ExampleApp;

# automatically enables "strict", "warnings", "utf8" and perl 5.10 features
use Mojo::Base qw( Mojolicious );

sub startup {
    my ( $self ) = @_;

    my $r = $self->routes;

    my $root = $r->get( '/foo/bar/baz' );
    $root->under( 'cb' => sub {
        my $self = shift;
        # do some checking here
    } );

    my $boz  = $root->get( '/boz' ); # /foo/bar/baz/boz
    $boz->to( 'ExampleController#example_form' );

    my $baz  = $root->get( '/baz' ); # /foo/bar/baz/baz
    $baz->to( 'ExampleController#example_form' );
}

# in reality this would be in a separate file
package ExampleApp::ExampleController;

use Mojo::Base 'Mojolicious::Controller';

sub example_form {
    my ( $self ) = @_;

    $self->render( text => 'boo' );
}

# in reality this would be in a separate file
package main;

use strict;
use warnings;

use Mojolicious::Commands;

Mojolicious::Commands->start_app( 'ExampleApp' );