File Coverage

blib/lib/Excel/Writer/XLSX.pm
Criterion Covered Total %
statement 18 18 100.0
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 26 27 96.3


line stmt bran cond sub pod time code
1             package Excel::Writer::XLSX;
2              
3             ###############################################################################
4             #
5             # Excel::Writer::XLSX - Create a new file in the Excel 2007+ XLSX format.
6             #
7             # Copyright 2000-2020, John McNamara, jmcnamara@cpan.org
8             #
9             # Documentation after __END__
10             #
11              
12 1081     1081   67543174 use 5.008002;
  1081         13225  
13 1081     1081   5474 use strict;
  1081         1856  
  1081         21516  
14 1081     1081   5007 use warnings;
  1081         1973  
  1081         27122  
15 1081     1081   5066 use Exporter;
  1081         2045  
  1081         41580  
16              
17 1081     1081   669668 use Excel::Writer::XLSX::Workbook;
  1081         3759  
  1081         140194  
18              
19             our @ISA = qw(Excel::Writer::XLSX::Workbook Exporter);
20             our $VERSION = '1.07';
21              
22              
23             ###############################################################################
24             #
25             # new()
26             #
27             sub new {
28              
29 849     849 1 309383 my $class = shift;
30 849         7842 my $self = Excel::Writer::XLSX::Workbook->new( @_ );
31              
32             # Check for file creation failures before re-blessing
33 849 50       5188 bless $self, $class if defined $self;
34              
35 849         3667 return $self;
36             }
37              
38              
39             1;
40              
41              
42             __END__