File Coverage

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