12—3456789101112131415161718192021222324 % my $class = shift;package <%= $class %>;HideShow 12 lines of Pod=head1 NAME<%= $class %> - Application Class=head1 SYNOPSIS<%= $class %>=head1 DESCRIPTION=cutuse strict;use warnings;use base 'Clustericious::App';use <%= $class %>::Routes;our $VERSION = '0.01';1;
%
my
$class
=
shift
;
package
<%=
%>;
=head1 NAME
<%= $class %> - Application Class
=head1 SYNOPSIS
<%= $class %>
=head1 DESCRIPTION
=cut
use
strict;
warnings;
base
'Clustericious::App'
%>::Routes;
our
$VERSION
'0.01'
1;