| line |
true |
false |
branch |
|
29
|
6 |
44 |
$swapped ? : |
|
60
|
10 |
5 |
if (@_ and ref $_[0]) { } |
|
79
|
1 |
14 |
if ($ref_type ne "ARRAY" and $ref_type ne "HASH") |
|
83
|
8 |
6 |
if ($ref_type eq "ARRAY" and ref $data->[0] eq "") |
|
88
|
8 |
6 |
if ($single_arr == 1) { } |
|
|
3 |
3 |
elsif ($ref_type eq 'ARRAY') { } |
|
|
3 |
0 |
elsif ($ref_type eq 'HASH') { } |
|
94
|
1 |
7 |
if (scalar @undef > 0) |
|
112
|
0 |
6 |
if (scalar @undef > 0) |
|
121
|
1 |
5 |
if $rows_printed >= $args{'nrows'} |
|
133
|
0 |
5 |
if (scalar @undef > 0) |
|
140
|
5 |
0 |
if (length $print_key < 9) |
|
146
|
1 |
4 |
if $rows_printed >= $args{'nrows'} |
|
155
|
1 |
551 |
unless -f $file |
|
156
|
0 |
551 |
unless -r $file |
|
159
|
2 |
549 |
if (exists $input_args{'delim'}) |
|
162
|
1 |
1 |
if exists $input_args{'sep'} |
|
166
|
3 |
547 |
$file =~ /\.tsv$/i ? : |
|
177
|
1 |
549 |
if (@undef_args) |
|
184
|
2 |
547 |
unless $otype =~ /^(?:aoh|hoa|hoh)$/ |
|
188
|
1 |
546 |
if (defined $filter and ref $filter eq 'CODE') { } |
|
|
1 |
1080 |
elsif (defined $filter and ref $filter ne 'HASH') { } |
|
199
|
546 |
6234 |
unless (@header) |
|
203
|
546 |
0 |
if @line and defined $line[0] and length($args{'comment'} // "") |
|
205
|
11 |
535 |
if (@header and $header[0] eq "") |
|
214
|
2 |
544 |
if @dup_cols |
|
216
|
6 |
540 |
if ($otype eq "hoh" and not defined $args{'row.names'}) |
|
219
|
1 |
545 |
if (defined $args{'row.names'} and not grep({$_ eq $args{'row.names'};} @header)) |
|
223
|
11 |
534 |
if ($filter) |
|
225
|
3 |
9 |
if ($k =~ /^\d+$/) { } |
|
229
|
1 |
2 |
if $k > @header |
|
235
|
1 |
8 |
unless defined $idx |
|
246
|
2 |
6232 |
if (@$line_ref != @header) |
|
254
|
29 |
74790 |
!defined($v) || $v eq '' ? : |
|
257
|
1862 |
4370 |
if (@sorted_filter_flds) |
|
264
|
3 |
1862 |
$fld == 0 ? : |
|
265
|
1137 |
728 |
unless ($mapped_filters{$fld}->($line_ref, \%line_hash)) |
|
269
|
727 |
1 |
if ($fld > 0) |
|
271
|
2 |
725 |
!defined($_) || $_ eq '' ? : |
|
275
|
1137 |
725 |
if $skip |
|
278
|
1886 |
3209 |
if ($otype eq 'aoh') { } |
|
|
1118 |
2091 |
elsif ($otype eq 'hoa') { } |
|
|
2091 |
0 |
elsif ($otype eq 'hoh') { } |
|
287
|
1 |
2090 |
unless defined $row_name |
|
290
|
1 |
2089 |
if $seen_rownames{$row_name}++ |
|
292
|
2090 |
27090 |
if $col eq $args{'row.names'} |
|
297
|
524 |
16 |
if ($otype eq 'aoh') { } |
|
341
|
1 |
40 |
if @bad |
|
345
|
1 |
7 |
if exists $args{'n'} and exists $args{'rows'} |
|
348
|
7 |
31 |
exists $args{'n'} ? : |
|
|
1 |
38 |
exists $args{'rows'} ? : |
|
349
|
2 |
37 |
unless defined $n and $n =~ /^\d+$/ |
|
352
|
1 |
36 |
exists $args{'na'} ? : |
|
353
|
2 |
35 |
exists $args{'max_width'} ? : |
|
354
|
1 |
36 |
exists $args{'ellipsis'} ? : |
|
355
|
0 |
37 |
exists $args{'gap'} ? : |
|
363
|
2 |
32 |
exists $args{'row_names'} ? : |
|
|
3 |
34 |
exists $args{'row.names'} ? : |
|
366
|
2 |
35 |
unless $rt eq "ARRAY" or $rt eq "HASH" |
|
371
|
22 |
13 |
if ($rt eq 'ARRAY') { } |
|
|
13 |
0 |
elsif ($rt eq 'HASH') { } |
|
374
|
4 |
18 |
$n < $total ? : |
|
376
|
3 |
19 |
if ($ucols) { } |
|
382
|
1 |
1 |
$total > 0 ? : |
|
|
17 |
2 |
$show > 0 ? : |
|
386
|
1 |
28 |
unless ref $row eq "HASH" |
|
392
|
1 |
19 |
grep({$_ eq 'row_name';} @cols) ? : |
|
|
2 |
20 |
defined $label_col ? : |
|
393
|
3 |
19 |
if (defined $lc) |
|
399
|
1 |
30 |
unless ref $row eq "HASH" |
|
400
|
5 |
26 |
defined $lc ? : |
|
403
|
19 |
3 |
unless defined $lab_header |
|
407
|
12 |
1 |
if defined $sample |
|
410
|
1 |
12 |
if (not @keys) { } |
|
|
5 |
7 |
elsif ($vt eq 'ARRAY') { } |
|
|
6 |
1 |
elsif ($vt eq 'HASH') { } |
|
418
|
1 |
4 |
$ucols ? : |
|
421
|
1 |
9 |
unless ref $data->{$k} eq "ARRAY" |
|
423
|
5 |
4 |
if $l > $total |
|
425
|
0 |
5 |
$n < $total ? : |
|
427
|
0 |
4 |
grep({$_ eq 'row_name';} @allcols) ? : |
|
|
1 |
4 |
defined $label_col ? : |
|
428
|
2 |
7 |
unless not defined $lc |
|
429
|
1 |
4 |
defined $lc ? : |
|
432
|
2 |
0 |
ref $data->{$lc} eq 'ARRAY' ? : |
|
|
2 |
11 |
defined $lc ? : |
|
435
|
19 |
2 |
ref $data->{$_} eq 'ARRAY' ? : |
|
442
|
1 |
5 |
$n < $total ? : |
|
443
|
6 |
0 |
$show > 0 ? : |
|
444
|
1 |
5 |
if ($ucols) { } |
|
450
|
1 |
8 |
unless ref $data->{$rkk} eq "HASH" |
|
455
|
2 |
4 |
if defined $label_col |
|
458
|
2 |
4 |
defined $label_col ? : |
|
461
|
10 |
1 |
ref $data->{$rkk} eq 'HASH' ? : |
|
471
|
0 |
1 |
$n < $total ? : |
|
472
|
0 |
1 |
if ($ucols) { } |
|
478
|
0 |
1 |
grep({$_ eq 'row_name';} @cols) ? : |
|
|
0 |
1 |
defined $label_col ? : |
|
479
|
0 |
1 |
if (defined $lc) |
|
483
|
1 |
0 |
unless defined $lab_header |
|
485
|
0 |
1 |
defined $lc ? : |
|
496
|
8 |
84 |
unless defined $v |
|
497
|
12 |
72 |
unless &looks_like_number($v) |
|
500
|
32 |
3 |
@labels ? : |
|
502
|
10 |
38 |
unless defined $l and &looks_like_number($l) |
|
509
|
8 |
140 |
unless defined $v |
|
512
|
2 |
138 |
if ($maxw and length $v > $maxw) |
|
514
|
0 |
2 |
if $keep < 0 |
|
525
|
24 |
32 |
if $l > $lab_w |
|
530
|
12 |
80 |
if $l > $w[$j] |
|
536
|
0 |
237 |
if $g < 0 |
|
537
|
164 |
73 |
$right ? : |
|
542
|
13 |
22 |
$total == 1 ? : |
|
|
13 |
22 |
@cols == 1 ? : |
|
555
|
5 |
0 |
$total - $shown == 1 ? : |
|
|
5 |
30 |
if $shown < $total |
|
559
|
1 |
0 |
defined $fh ? : |
|
|
1 |
34 |
unless ($quiet) |