File Coverage

blib/lib/Catalyst/Helper/View/Chart/Strip.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::Chart::Strip;
2              
3 1     1   3848 use strict;
  1         3  
  1         102  
4              
5             =head1 NAME
6              
7             Catalyst::Helper::View::Chart::Strip - Helper for Chart::Strip Views
8              
9             =head1 SYNOPSIS
10              
11             script/create.pl view MyChartStrip Chart::Strip
12              
13             =head1 DESCRIPTION
14              
15             Helper for Chart::Strip Views.
16              
17             =head1 METHODS
18              
19             =head2 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, L, L,
32             L, L,
33             L
34              
35             =head1 AUTHOR
36              
37             Brandon L Black, C
38              
39             =head1 LICENSE
40              
41             You may distribute this code under the same terms as Perl itself.
42              
43             =cut
44              
45             1;
46              
47             __DATA__