Commit | Line | Data |
---|---|---|
8077080c | 1 | package Catalyst::Helper::View::TT; |
2 | ||
3 | use strict; | |
8077080c | 4 | |
5 | =head1 NAME | |
6 | ||
7 | Catalyst::Helper::View::TT - Helper for TT Views | |
8 | ||
9 | =head1 SYNOPSIS | |
10 | ||
c90b1329 | 11 | script/create.pl view TT TT |
8077080c | 12 | |
13 | =head1 DESCRIPTION | |
14 | ||
15 | Helper for TT Views. | |
16 | ||
17 | =head2 METHODS | |
18 | ||
19 | =head3 mk_compclass | |
20 | ||
21 | =cut | |
22 | ||
23 | sub mk_compclass { | |
24 | my ( $self, $helper ) = @_; | |
d97e9999 | 25 | my $file = $helper->{file}; |
dc617c0e | 26 | $helper->render_file( 'compclass', $file ); |
d97e9999 | 27 | } |
8077080c | 28 | |
d97e9999 | 29 | =head1 SEE ALSO |
8077080c | 30 | |
d97e9999 | 31 | L<Catalyst::Manual>, L<Catalyst::Test>, L<Catalyst::Request>, |
32 | L<Catalyst::Response>, L<Catalyst::Helper> | |
8077080c | 33 | |
34 | =head1 AUTHOR | |
35 | ||
d97e9999 | 36 | Sebastian Riedel, C<sri@oook.de> |
5be63f44 | 37 | Marcus Ramberg, C<mramberg@cpan.org> |
8077080c | 38 | |
39 | =head1 LICENSE | |
40 | ||
7bee9bfc | 41 | This library is free software . You can redistribute it and/or modify |
42 | it under the same terms as perl itself. | |
8077080c | 43 | |
44 | =cut | |
45 | ||
46 | 1; | |
8077080c | 47 | |
d97e9999 | 48 | __DATA__ |
8077080c | 49 | |
d97e9999 | 50 | __compclass__ |
51 | package [% class %]; | |
52 | ||
53 | use strict; | |
54 | use base 'Catalyst::View::TT'; | |
55 | ||
5be63f44 | 56 | __PACKAGE__->config(TEMPLATE_EXTENSION => '.tt'); |
d97e9999 | 57 | |
5be63f44 | 58 | =head1 NAME |
d97e9999 | 59 | |
5be63f44 | 60 | [% class %] - TT View for [% app %] |
d97e9999 | 61 | |
62 | =head1 DESCRIPTION | |
63 | ||
5be63f44 | 64 | TT View for [% app %]. |
8077080c | 65 | |
66 | =head1 AUTHOR | |
67 | ||
5be63f44 | 68 | =head1 SEE ALSO |
69 | ||
70 | L<[% app %]> | |
71 | ||
bd9d89ad | 72 | [% author %] |
8077080c | 73 | |
74 | =head1 LICENSE | |
75 | ||
7d8aa5ec | 76 | This library is free software, you can redistribute it and/or modify |
77 | it under the same terms as Perl itself. | |
8077080c | 78 | |
79 | =cut | |
80 | ||
81 | 1; |