Commit | Line | Data |
312ab89f |
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; |