| line |
true |
false |
branch |
|
24
|
0 |
1 |
if (length $$sheet[0] > 31) |
|
43
|
0 |
5 |
unless (defined $array[0]) |
|
46
|
0 |
0 |
unless defined $array[0] |
|
50
|
0 |
5 |
if (length $array[0] > 31) |
|
57
|
0 |
5 |
if (grep {$$_[0] eq $array[0];} @{$$self{'worksheets'};}) |
|
69
|
56 |
45 |
if defined $title |
|
78
|
0 |
1 |
unless defined $title |
|
81
|
0 |
1 |
unless (defined $title) |
|
94
|
42 |
1 |
if (ref $title eq 'ARRAY') |
|
100
|
0 |
43 |
unless $title |
|
103
|
0 |
43 |
unless (grep {$$_[0] eq $title;} @{$$self{'worksheets'};}) |
|
108
|
0 |
43 |
unless (ref $arref eq 'ARRAY') |
|
114
|
43 |
42 |
if ($$worksheet[0] eq $title) |
|
126
|
0 |
1 |
if (ref $title eq 'ARRAY') |
|
135
|
0 |
1 |
unless (grep {$$_[0] eq $title;} @{$$self{'worksheets'};}) |
|
140
|
0 |
1 |
unless (ref $arref eq 'ARRAY') |
|
146
|
1 |
0 |
if ($$worksheet[0] eq $title) |
|
158
|
0 |
0 |
if (ref $title eq 'ARRAY') |
|
163
|
0 |
0 |
unless defined $title |
|
166
|
0 |
0 |
unless (grep {$$_[0] eq $title;} @{$$self{'worksheets'};}) |
|
171
|
0 |
0 |
unless (ref $arref eq 'ARRAY') |
|
177
|
0 |
0 |
if ($$worksheet[0] eq $title) |
|
189
|
0 |
0 |
if (ref $title eq 'ARRAY') |
|
194
|
0 |
0 |
unless defined $title |
|
197
|
0 |
0 |
unless (grep {$$_[0] eq $title;} @{$$self{'worksheets'};}) |
|
202
|
0 |
0 |
unless (ref $arref eq 'ARRAY') |
|
208
|
0 |
0 |
if ($$worksheet[0] eq $title) |
|
220
|
0 |
1 |
if (ref $index eq 'ARRAY') |
|
227
|
0 |
1 |
unless defined $title |
|
230
|
0 |
1 |
unless (grep {$$_[0] eq $title;} @{$$self{'worksheets'};}) |
|
235
|
0 |
1 |
unless (ref $arref eq 'ARRAY') |
|
241
|
1 |
0 |
if ($$worksheet[0] eq $title) |
|
243
|
0 |
1 |
if ($index =~ /[^\d]/ or $index > $#array) |
|
260
|
0 |
2 |
if (scalar @_ == 1) { } |
|
|
0 |
2 |
elsif (scalar @_ == 2) { } |
|
|
0 |
2 |
elsif (scalar @_ == 3) { } |
|
265
|
0 |
0 |
if ($title =~ /\D/) { } |
|
277
|
0 |
0 |
if ($title =~ /^\d+$/ and $index =~ /^ASC|DESC$/) |
|
284
|
0 |
2 |
unless defined $title |
|
289
|
0 |
2 |
unless (grep {$$_[0] eq $title;} @{$$self{'worksheets'};}) |
|
296
|
2 |
0 |
if ($$worksheet[0] eq $title) |
|
297
|
2 |
0 |
unless exists $$worksheet[1]{'sortstring'} |
|
298
|
0 |
2 |
$$worksheet[1]{'sortstring'} =~ /\w/ ? : |
|
300
|
0 |
2 |
unless scalar @array > 0 |
|
301
|
1 |
1 |
if ($index >= scalar @{$array[0];}) |
|
306
|
0 |
1 |
unless (defined $index or $index =~ /\D/) |
|
311
|
0 |
1 |
if (_is_numeric(\@array, $index)) { } |
|
312
|
0 |
0 |
if ($type and $type eq 'DESC') { } |
|
320
|
1 |
0 |
if ($type and $type eq 'DESC') { } |
|
337
|
0 |
0 |
unless defined $title |
|
340
|
0 |
0 |
unless (grep {$$_[0] eq $title;} @{$$self{'worksheets'};}) |
|
360
|
0 |
1 |
if (_is_title_numeric(\@title_array)) { } |
|
366
|
1 |
0 |
if $type and $type eq 'DESC' |
|
373
|
1 |
0 |
if $$_[$index] =~ /[^\d\.]/ |
|
382
|
1 |
0 |
if $_ =~ /[^\d\.]/ |
|
390
|
4 |
1 |
if (exists $$worksheet[1]{'sortstring'} and defined $$worksheet[1]{'sortstring'} and $$worksheet[1]{'sortstring'} =~ /\w/) |
|
403
|
0 |
2 |
unless (defined $excel) |
|
418
|
0 |
1 |
unless (defined $excel) |
|
431
|
0 |
3 |
unless ($filename) |
|
432
|
0 |
0 |
if ($$self{'FILE'}) { } |
|
443
|
0 |
3 |
unless (defined $excel) |
|
448
|
0 |
3 |
unless open EXCEL, ">$filename" |
|
458
|
0 |
2 |
unless ($filename) |
|
463
|
0 |
2 |
unless (scalar @{$$self{'worksheets'};} >= 1) |
|
479
|
2 |
0 |
if (exists $$worksheet[1]{-'headers'}) { } |
|
514
|
0 |
6 |
unless (scalar @{$$self{'worksheets'};} >= 1) |
|
521
|
0 |
6 |
unless ($excel = 'Spreadsheet::WriteExcel'->new(\*XLS)) |
|
526
|
0 |
6 |
if ($$self{'BIG'}) |
|
528
|
0 |
0 |
if ($@) |
|
532
|
0 |
0 |
unless ($excel = 'Spreadsheet::WriteExcel::Big'->new(\*XLS)) |
|
547
|
6 |
5 |
if exists $$worksheet[1]{'-headers'} and scalar @{$$worksheet[1]{'-headers'};} > 0 |
|
550
|
0 |
107 |
if ($row >= $c_lines) |
|
559
|
0 |
0 |
if (scalar @{$$worksheet[1]{'-headers'};} > 0) |
|
566
|
0 |
214 |
if (defined $formatref and defined $$formatref[$col]) { } |
|
567
|
0 |
0 |
if ($$formatref[$col] eq 's') { } |
|
|
0 |
0 |
elsif ($$formatref[$col] eq 'n') { } |
|
597
|
14 |
0 |
if (not defined $formatref && defined $$formatref[$col]) { } |
|
601
|
0 |
0 |
if ($$formatref[$col] eq 's') { } |
|
|
0 |
0 |
elsif ($$formatref[$col] eq 'n') { } |
|
618
|
1 |
3 |
wantarray ? : |