File Coverage

blib/lib/Catalyst/Helper/View/Mason.pm
Criterion Covered Total %
statement 6 9 66.6
branch n/a
condition n/a
subroutine 2 3 66.6
pod 1 1 100.0
total 9 13 69.2


line stmt bran cond sub pod time code
1             package Catalyst::Helper::View::Mason;
2              
3 1     1   1540 use strict;
  1         3  
  1         55  
4 1     1   5 use warnings;
  1         2  
  1         101  
5              
6             our $VERSION = '0.13';
7              
8             =head1 NAME
9              
10             Catalyst::Helper::View::Mason - Helper for Mason Views
11              
12             =head1 SYNOPSIS
13              
14             script/create.pl view Mason Mason
15              
16             =head1 DESCRIPTION
17              
18             Helper for Mason 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             Florian Ragwitz <rafl@debian.org>
40              
41             Originally written by:
42              
43             Andres Kievsky
44             Sebastian Riedel, C<sri@oook.de>
45              
46             =head1 LICENSE
47              
48             This library is free software . You can redistribute it and/or modify it under
49             the same terms as perl itself.
50              
51             =cut
52              
53             1;
54              
55             __DATA__
56              
57             __compclass__
58             package [% class %];
59              
60             use strict;
61             use warnings;
62              
63             use parent 'Catalyst::View::Mason';
64              
65             __PACKAGE__->config(use_match => 0);
66              
67             =head1 NAME
68              
69             [% class %] - Mason View Component for [% app %]
70              
71             =head1 DESCRIPTION
72              
73             Mason View Component for [% app %]
74              
75             =head1 SEE ALSO
76              
77             L<[% app %]>, L<HTML::Mason>
78              
79             =head1 AUTHOR
80              
81             [% author %]
82              
83             =head1 LICENSE
84              
85             This library is free software . You can redistribute it and/or modify it under
86             the same terms as perl itself.
87              
88             =cut
89              
90             1;