#!/usr/bin/env perl
use Mojolicious::Lite

my $users = Mojo::Cache->new(max_keys => 50);
$users->set(1 => 'John H');
$users->set(2 => 'Sam A');
#my $user = $users->get('1');

get '/user/:id' => [id => qr/\d+/] => sub ($c) {
	$c->render(text => $users{$id});
};

app->start;