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-2019, John McNamara, jmcnamara@cpan.org
8             #
9             # Documentation after __END__
10             #
11              
12 1040     1040   68507571 use 5.008002;
  1040         13500  
13 1040     1040   5798 use strict;
  1040         1989  
  1040         22406  
14 1040     1040   5108 use warnings;
  1040         2132  
  1040         26728  
15 1040     1040   5254 use Exporter;
  1040         2189  
  1040         42741  
16              
17 1040     1040   706072 use Excel::Writer::XLSX::Workbook;
  1040         5295  
  1040         148921  
18              
19             our @ISA = qw(Excel::Writer::XLSX::Workbook Exporter);
20             our $VERSION = '1.03';
21              
22              
23             ###############################################################################
24             #
25             # new()
26             #
27             sub new {
28              
29 809     809 1 325083 my $class = shift;
30 809         7431 my $self = Excel::Writer::XLSX::Workbook->new( @_ );
31              
32             # Check for file creation failures before re-blessing
33 809 50       5404 bless $self, $class if defined $self;
34              
35 809         3287 return $self;
36             }
37              
38              
39             1;
40              
41              
42             __END__