File Coverage

blib/lib/Catalyst/Helper/View/TT.pm
Criterion Covered Total %
statement 3 6 50.0
branch n/a
condition n/a
subroutine 1 2 50.0
pod 1 1 100.0
total 5 9 55.6


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