The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
% my $class = shift;
package <%= $class %>::Client;

=head1 NAME

<%= $class %>::Client - <%= $class %> Client

=head1 SYNOPSIS

    my $c = <%= $class %>::Client->new();
    my $msg = $c->welcome or die $c->errorstring;

=head1 METHODS

=cut

use strict;
use warnings;

use Clustericious::Client;

our $VERSION = '0.01';

=head2 welcome

Get a welcome message.

Arguments :
    verbose : be verbose

=cut

route 'welcome'   => 'GET', '/';
route_args 'welcome' => [
    { name => 'verbose', type => '=s', modifies_url => 'query' },
];

=head1 SEE ALSO

<%= lc $class.'client' %>

=cut

1;