gistfile1.pl

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

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

    # POST /foo/bar -> {controller => 'foo', action => 'bar'}
    $resource->post->to();

    # GET /foo/bar -> {controller => 'foo', action => 'bar_form'}
    $resource->get->to(action => $action.'_form');

    return $resource;
  });