| line |
true |
false |
branch |
|
30
|
0 |
6 |
unless $cc and ref $cc eq 'HASH'
|
|
37
|
0 |
6 |
unless exists $cc->{'key_idx'}
|
|
61
|
6 |
0 |
if ($c{'concat_keys'} or not ref $c{'key_idx'}) { }
|
|
76
|
0 |
6 |
if ($c{'header'})
|
|
78
|
0 |
0 |
if ($c{'comment'} and $raw_row =~ /$c{'comment'}/)
|
|
79
|
0 |
0 |
if ($c{'commented_header'}) { }
|
|
88
|
0 |
0 |
ref $vidx ? :
|
|
|
0 |
0 |
if defined $vidx and $vidx ne 'all'
|
|
96
|
0 |
18 |
if $lnum++ <= $c{'skip'}
|
|
97
|
0 |
18 |
if $c{'comment'} and /$c{'comment'}/
|
|
100
|
0 |
18 |
if /^\s*$/
|
|
102
|
1 |
17 |
if $record_filter and not &$record_filter($_)
|
|
108
|
0 |
17 |
ref $kidx ? :
|
|
110
|
0 |
17 |
if $c{'sort_keys'}
|
|
113
|
0 |
17 |
if ($uniq and not defined $vidx) { }
|
|
|
0 |
17 |
elsif (not defined $vidx) { }
|
|
|
13 |
4 |
elsif ($uniq) { }
|
|
118
|
1 |
12 |
if $is_strict and defined $map{$k}
|
|
119
|
0 |
9 |
$vidx eq 'all' ? :
|
|
|
3 |
9 |
ref $vidx ? :
|
|
122
|
0 |
2 |
$vidx eq 'all' ? :
|
|
|
2 |
2 |
ref $vidx ? :
|
|
127
|
0 |
5 |
unless $fh_was_open
|
|
128
|
0 |
5 |
wantarray ? :
|
|
139
|
0 |
0 |
unless ref $vv
|
|
140
|
0 |
0 |
ref $_ ? :
|
|
141
|
0 |
0 |
if $uniq
|
|
171
|
1 |
1 |
if $c{'col_idx'} and ref $c{'col_idx'} eq 'ARRAY'
|
|
175
|
0 |
2 |
if ($c{'header'})
|
|
177
|
0 |
0 |
if ($c{'comment'} and $raw_row =~ /$c{'comment'}/)
|
|
178
|
0 |
0 |
if ($c{'commented_header'}) { }
|
|
194
|
0 |
4 |
if $lnum++ <= $c{'skip'}
|
|
195
|
0 |
4 |
if $c{'comment'} and /$c{'comment'}/
|
|
198
|
0 |
4 |
if /^\s*$/
|
|
200
|
0 |
4 |
if $record_filter and not &$record_filter($_)
|
|
204
|
0 |
4 |
if $c{'row_names'}
|
|
205
|
0 |
0 |
$_ eq $c{'na_value'} ? :
|
|
|
0 |
4 |
if $c{'na_value'}
|
|
207
|
2 |
2 |
@col_idx ? :
|
|
209
|
0 |
2 |
unless $fh_was_open
|
|
212
|
0 |
0 |
if $c{'row_names'} and $c{'header'} and @m > 0 and @{$m[0];} == @header and not $header[0]
|
|
214
|
0 |
2 |
if (wantarray) { }
|
|
215
|
0 |
0 |
@header ? :
|
|
|
0 |
0 |
@row_names ? :
|
|
226
|
0 |
0 |
unless my $data = do {
|
|
228
|
0 |
0 |
unless $fh_was_open
|
|
231
|
0 |
0 |
$data =~ /\w\t[\w]/ ? :
|
|
|
0 |
0 |
$data =~ /\w;[\w;]/ ? :
|
|
|
0 |
0 |
$data =~ /\w,[\w,]/ ? :
|
|
|
0 |
0 |
$data =~ /["\d]\t["\d]/ ? :
|
|
|
0 |
0 |
$data =~ /["\d];["\d;]/ ? :
|
|
|
0 |
0 |
$data =~ /["\d],["\d,]/ ? :
|
|
240
|
0 |
0 |
unless open my $dfh, '<', \$data
|
|
264
|
1 |
7 |
if --$c{'skip'} >= 0
|
|
266
|
2 |
5 |
if $c{'comment'} and /$c{'comment'}/
|
|
269
|
2 |
3 |
if /^\s*$/
|
|
270
|
0 |
3 |
if $record_filter and not &$record_filter($_)
|
|
276
|
0 |
2 |
unless $fh_was_open
|
|
290
|
0 |
0 |
unless $row
|
|
292
|
0 |
0 |
if (defined $from_idx and defined $to_idx) { }
|
|
309
|
0 |
0 |
if $header and @$header > 0
|
|
311
|
0 |
0 |
if (ref $l eq 'HASH') { }
|
|
|
0 |
0 |
elsif (ref $l eq 'ARRAY') { }
|
|
313
|
0 |
0 |
if (ref $v eq 'ARRAY') { }
|
|
321
|
0 |
0 |
if (ref $v eq 'ARRAY') { }
|
|
331
|
0 |
0 |
unless $fh_was_open
|
|
346
|
0 |
1 |
unless $m and ref $m eq 'ARRAY'
|
|
361
|
0 |
0 |
defined $_ ? :
|
|
364
|
1 |
0 |
if $header and @$header > 0
|
|
366
|
0 |
0 |
if $header and @$header > 0 and $rownames and not ref $rownames and @$header >= @$m
|
|
370
|
0 |
1 |
if ref $rownames eq 'ARRAY' and @$rownames > $num_rows
|
|
372
|
0 |
1 |
if ($square)
|
|
373
|
0 |
0 |
if $num_cols > $num_rows
|
|
374
|
0 |
0 |
if $num_rows > $num_cols
|
|
376
|
0 |
0 |
if $rownames
|
|
379
|
0 |
1 |
if $rownames and not ref $rownames eq 'ARRAY' && @$rownames >= @$m
|
|
381
|
0 |
1 |
unless defined $m
|
|
386
|
1 |
0 |
if ($header)
|
|
388
|
0 |
1 |
if $rownames and not $c->{'r_style_header'}
|
|
392
|
0 |
1 |
if ($col_data)
|
|
395
|
0 |
0 |
if $rownames and not $c->{'r_style_header'}
|
|
404
|
0 |
0 |
if $rownames
|
|
406
|
0 |
0 |
if $i < @$m
|
|
408
|
0 |
0 |
if ($square or $fill_rows)
|
|
415
|
0 |
1 |
unless $fh_was_open
|
|
421
|
0 |
1 |
if $q and defined $na
|
|
423
|
0 |
2 |
if (not defined $_) { }
|
|
|
2 |
0 |
elsif (not $q or /^\d+$/) { }
|
|
439
|
0 |
0 |
unless eval 'use Excel::Writer::XLSX; 1'
|
|
446
|
0 |
0 |
if $header and @$header > 0 and $rownames and not ref $rownames and @$header == @$m
|
|
451
|
0 |
0 |
if ($header)
|
|
453
|
0 |
0 |
if $rownames
|
|
461
|
0 |
0 |
if $rownames
|
|
474
|
0 |
0 |
if $c->{'keep_leading_zeros'}
|
|
477
|
0 |
0 |
unless $fh_was_open
|
|
486
|
0 |
0 |
unless eval 'use Spreadsheet::ParseXLSX; 1'
|
|
488
|
0 |
0 |
unless ref $src
|
|
492
|
0 |
0 |
unless (defined $workbook)
|
|
505
|
0 |
0 |
defined $e ? :
|