shortcut.pl

# Simple "resource" shortcut
$r->add_shortcut(resource => sub {
  my ($r, $name) = @_;

  # Generate "/$name" route
  my $resource = $r->route("/$name")->to("$name#");

  # Handle POST requests
  $resource->post->to('#create')->name("create_$name");

  # Handle GET requests
  $resource->get->to('#show')->name("show_$name");

  return $resource;
});

# POST /user -> {controller => 'user', action => 'create'}
# GET  /user -> {controller => 'user', action => 'show'}
$r->resource('user');