File Coverage

blib/lib/Catalyst/Helper/View/XLSX.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::XLSX;
2              
3 1     1   1149 use strict;
  1         1  
  1         37  
4 1     1   5 use warnings;
  1         2  
  1         89  
5              
6             our $VERSION = "1.2";
7              
8             =head1 NAME
9              
10             Catalyst::Helper::View::XLSX - Helper for XLSX views
11              
12             =head1 SYNOPSIS
13              
14             script/create.pl view XLSX XLSX
15              
16             =head1 DESCRIPTION
17              
18             Helper for XLSX views.
19              
20             =head2 METHODS
21              
22             =head3 mk_compclass
23              
24             =cut
25              
26             sub mk_compclass {
27 0     0 1   ( my $self, my $helper ) = @_;
28              
29 0           my $file = $helper->{file};
30 0           $helper->render_file ( "compclass", $file );
31             }
32              
33             =head1 SEE ALSO
34              
35             L<Catalyst::View::XLSX>, L<Catalyst::Manual>, L<Catalyst::Helper>
36              
37             =cut
38              
39             1;
40              
41             __DATA__
42              
43             __compclass__
44             package [% class %];
45              
46             use base qw ( Catalyst::View::XLSX );
47             use strict;
48             use warnings;
49              
50             =head1 NAME
51              
52             [% class %] - XLSX view for [% app %]
53              
54             =head1 DESCRIPTION
55              
56             XLSX view for [% app %]
57              
58             =head1 SEE ALSO
59              
60             L<[% app %]>, L<Catalyst::View::XLSX>, L<Text::XLSX>
61              
62             =head1 AUTHOR
63              
64             [% author %]
65              
66             =head1 LICENSE
67              
68             This library is free software . You can redistribute it and/or modify
69             it under the same terms as perl itself.
70              
71             =cut
72              
73             1;