File Coverage

blib/lib/Catalyst/Helper/View/TT/Alloy.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             #!/bin/false
2              
3 1     1   904 use strict;
  1         2  
  1         85  
4             package Catalyst::Helper::View::TT::Alloy;
5             $Catalyst::Helper::View::TT::Alloy::VERSION = '0.00007';
6             =head1 NAME
7              
8             Catalyst::Helper::View::TT::Alloy - Helper for Template::Alloy Views
9              
10             =head1 VERSION
11              
12             version 0.00007
13              
14             =head1 SYNOPSIS
15              
16             script/create.pl view TT::Alloy TT::Alloy
17              
18             =head1 DESCRIPTION
19              
20             Helper for Template::Alloy Views.
21              
22             =head2 METHODS
23              
24             =head3 mk_compclass
25              
26             =cut
27              
28             sub mk_compclass {
29 0     0 1   my ( $self, $helper ) = @_;
30 0           my $file = $helper->{file};
31 0           $helper->render_file( 'compclass', $file );
32             }
33              
34             =head1 SEE ALSO
35              
36             L<Catalyst::View::TT::Alloy>, L<Template::Alloy>, L<Catalyst::Manual>
37              
38             =head1 AUTHORS
39              
40             Carl Franks, C<cfranks@cpan.org>
41              
42             Based on the code of C<Catalyst::Helper::TT::Alloy>, by
43              
44             Sebastian Riedel, C<sri@oook.de>
45              
46             Marcus Ramberg, C<mramberg@cpan.org>
47              
48             =head1 LICENSE
49              
50             This library is free software . You can redistribute it and/or modify
51             it under the same terms as perl itself.
52              
53             =cut
54              
55             1;
56              
57             __DATA__
58              
59             __compclass__
60             package [% class %];
61              
62             use strict;
63             use parent 'Catalyst::View::TT::Alloy';
64              
65             1;
66              
67             __END__
68              
69             =head1 NAME
70              
71             [% class %] - TT::Alloy View for [% app %]
72              
73             =head1 DESCRIPTION
74              
75             TT::Alloy View for [% app %].
76              
77             =head1 AUTHOR
78              
79             =head1 SEE ALSO
80              
81             L<[% app %]>
82              
83             [% author %]
84              
85             =head1 LICENSE
86              
87             This library is free software, you can redistribute it and/or modify
88             it under the same terms as Perl itself.
89              
90             =cut