share/lib/Helper/compclass.pm.tt

   1 package [% class %];
   2
   3 use strict;
   4 use warnings;
   5 use parent 'Catalyst::[% long_type %]';
   6
   7 =head1 NAME
   8
   9 [% class %] - Catalyst [% long_type %]
  10
  11 =head1 DESCRIPTION
  12
  13 Catalyst [% long_type %].
  14 [% IF long_type == 'Controller' %]
  15 =head1 METHODS
  16
  17 =cut
  18
  19
  20 =head2 index
  21
  22 =cut
  23
  24 sub index :Path :Args(0) {
  25     my ( $self, $c ) = @_;
  26
  27     $c->response->body('Matched [% class %] in [%name%].');
  28 }
  29
  30 [% END %]
  31 =head1 AUTHOR
  32
  33 [%author%]
  34
  35 =head1 LICENSE
  36
  37 This library is free software. You can redistribute it and/or modify
  38 it under the same terms as Perl itself.
  39
  40 =cut
  41
  42 1;