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.5


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