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

=head1 NAME

<%= $class %> - Application Class

=head1 SYNOPSIS

<%= $class %>

=head1 DESCRIPTION

=cut

use strict;
use warnings;

use base 'Clustericious::App';
use <%= $class %>::Routes;

our $VERSION = '0.01';

sub startup
{
  my($self) = @_;
  $self->SUPER::startup(@_);
  
  # called when the web application starts
}

sub sanity_check
{
  my($self) = @_;
  
  return 0 unless $self->SUPER::sanity_check;
  
  # test $self->config for missing or badly formed
  # configuration items, and return 1 if it is okay
  # and 0 if it is bad.  print diagnostics to
  # make it clear what is wrong.
  
  return 1;
}

sub generate_config
{
  my($self) = @_;
  
  # TODO
}

1;