#!/usr/bin/perl
use Mojolicious::Lite -signatures;
helper users => sub ($c) { # probably a database in reality?
state $users => {
2 => 'John H',
4 => 'Sam A',
} };
get '/' => sub ($c) { $c->render(template => 'index') } => 'index';
get '/user/:id' => [id => qr/\d*[02468]/] => sub ($c) {
my $id = $c->param('id');
if ( exists app->users->{$id} )
{ $c->redirect_to('user_by_name', name=>app->users->{$id} ) }
else { $c->reply->not_found }
} => 'user_by_id';
get '/user/:name' => sub ($c) {
# a very inefficient grep here, don't use this in production!!
if ( grep { $_ eq $c->param('name') } values app->users->%* )
{ $c->render( template=>'user' ) }
else { $c->reply->not_found }
} => 'user_by_name';
app->start;
__DATA__
@@ layouts/main.html.ep
<%= title %>
%= content
@@ index.html.ep
% layout 'main', title => 'Hello, World!';
User List
% for my $id (sort {$a<=>$b} keys users->%*) {
-
%= link_to "User ID $id" => user_by_id => { id => $id }
%= link_to users->{$id} => user_by_name=>{name=>users->{$id}}
% }
@@ user.html.ep
% layout 'main', title => 'User page';
This is <%= $name %>'s Page
%= link_to Home => 'index';