The Mojolicious example of routes (simple CRUD model)

gistfile1.txt

#!/usr/bin/perl
use common::sense;
use lib '../lib';

$ENV{MOJO_APP} ||= 'App';

use Mojolicious::Commands; Mojolicious::Commands->start;

package App;
use common::sense;

use base 'Mojolicious';

sub startup {
	my $self = shift;
	
	my $r = $self->routes;
	
	$r->route('/')->to('test#list');
	$r->route('/open')->via('post')->to('test#open');
	$r->route('/view/:id',  id => qr/\d+/)->via('get')->to('test#view' );
	$r->route('/close/:id', id => qr/\d+/)->via('get')->to('test#close');
}

package App::Test;
use common::sense;

use base 'Mojolicious::Controller';

sub list  { shift->render_text('List') }
sub open  { shift->render_text('Open') }

sub view  { my $self = shift; $self->render_text('View  ' . $self->stash('id')) }
sub close { my $self = shift; $self->render_text('Close ' . $self->stash('id')) }

1;