File Coverage

blib/lib/Catalyst/Helper/View/TT/Layout.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::Layout;
2              
3 1     1   1377 use strict;
  1         2  
  1         91  
4              
5             =head1 NAME
6              
7             Catalyst::Helper::View::TT::Layout - Helper for Layout TT Views
8              
9             =head1 SYNOPSIS
10              
11             script/create.pl view TT::Layout TT
12              
13             =head1 DESCRIPTION
14              
15             Helper for Layout 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::View::TT>, L<Catalyst::Helper>, L<Catalyst>
32              
33             =head1 AUTHOR
34              
35             Marcus Ramberg, C<mramberg@cpan.org>
36              
37             =head1 LICENSE
38              
39             This library is free software . You can redistribute it and/or modify it
40             under the same terms as perl itself.
41              
42             =cut
43              
44             1;
45              
46             __DATA__
47              
48             __compclass__
49             package [% class %];
50              
51             use strict;
52             use base 'Catalyst::View::TT::Layout';
53              
54             =head1 NAME
55              
56             [% class %] - Layout TT View Component
57              
58             =head1 SYNOPSIS
59              
60             Very simple to use
61              
62             =head1 DESCRIPTION
63              
64             Very nice component.
65              
66             =head1 AUTHOR
67              
68             [% author %]
69              
70             =head1 LICENSE
71              
72             This library is free software . You can redistribute it and/or modify it
73             under the same terms as perl itself.
74              
75             =cut
76              
77             1;