| line |
true |
false |
branch |
|
29
|
1 |
25 |
$swapped ? : |
|
60
|
4 |
1 |
if (@_ and ref $_[0]) { } |
|
79
|
0 |
5 |
if ($ref_type ne "ARRAY" and $ref_type ne "HASH") |
|
83
|
2 |
3 |
if ($ref_type eq "ARRAY" and ref $data->[0] eq "") |
|
88
|
2 |
3 |
if ($single_arr == 1) { } |
|
|
1 |
2 |
elsif ($ref_type eq 'ARRAY') { } |
|
|
2 |
0 |
elsif ($ref_type eq 'HASH') { } |
|
94
|
0 |
2 |
if (scalar @undef > 0) |
|
112
|
0 |
2 |
if (scalar @undef > 0) |
|
121
|
0 |
2 |
if $rows_printed >= $args{'nrows'} |
|
133
|
0 |
3 |
if (scalar @undef > 0) |
|
140
|
3 |
0 |
if (length $print_key < 9) |
|
146
|
1 |
2 |
if $rows_printed >= $args{'nrows'} |
|
155
|
0 |
523 |
unless -f $file |
|
156
|
0 |
523 |
unless -r $file |
|
159
|
1 |
522 |
if (exists $input_args{'delim'}) |
|
162
|
0 |
1 |
if exists $input_args{'sep'} |
|
166
|
2 |
521 |
$file =~ /\.tsv$/i ? : |
|
177
|
0 |
523 |
if (@undef_args) |
|
184
|
1 |
522 |
unless $otype =~ /^(?:aoh|hoa|hoh)$/ |
|
188
|
0 |
522 |
if (defined $filter and ref $filter eq 'CODE') { } |
|
|
0 |
1040 |
elsif (defined $filter and ref $filter ne 'HASH') { } |
|
199
|
522 |
6196 |
unless (@header) |
|
203
|
522 |
0 |
if @line and defined $line[0] and length($args{'comment'} // "") |
|
205
|
10 |
512 |
if (@header and $header[0] eq "") |
|
214
|
1 |
521 |
if @dup_cols |
|
216
|
4 |
518 |
if ($otype eq "hoh" and not defined $args{'row.names'}) |
|
219
|
0 |
522 |
if (defined $args{'row.names'} and not grep({$_ eq $args{'row.names'};} @header)) |
|
223
|
4 |
518 |
if ($filter) |
|
225
|
0 |
4 |
if ($k =~ /^\d+$/) { } |
|
229
|
0 |
0 |
if $k > @header |
|
235
|
0 |
4 |
unless defined $idx |
|
246
|
1 |
6195 |
if (@$line_ref != @header) |
|
254
|
20 |
74712 |
!defined($v) || $v eq '' ? : |
|
257
|
1847 |
4348 |
if (@sorted_filter_flds) |
|
264
|
0 |
1847 |
$fld == 0 ? : |
|
265
|
1131 |
716 |
unless ($mapped_filters{$fld}->($line_ref, \%line_hash)) |
|
269
|
716 |
0 |
if ($fld > 0) |
|
271
|
1 |
715 |
!defined($_) || $_ eq '' ? : |
|
275
|
1131 |
716 |
if $skip |
|
278
|
1863 |
3201 |
if ($otype eq 'aoh') { } |
|
|
1114 |
2087 |
elsif ($otype eq 'hoa') { } |
|
|
2087 |
0 |
elsif ($otype eq 'hoh') { } |
|
287
|
0 |
2087 |
unless defined $row_name |
|
290
|
1 |
2086 |
if $seen_rownames{$row_name}++ |
|
292
|
2087 |
27084 |
if $col eq $args{'row.names'} |
|
297
|
509 |
12 |
if ($otype eq 'aoh') { } |
|
335
|
0 |
0 |
exists $args{'n'} ? : |
|
336
|
0 |
0 |
exists $args{'na'} ? : |
|
337
|
0 |
0 |
exists $args{'max_width'} ? : |
|
338
|
0 |
0 |
exists $args{'ellipsis'} ? : |
|
339
|
0 |
0 |
exists $args{'gap'} ? : |
|
346
|
0 |
0 |
exists $args{'row_names'} ? : |
|
|
0 |
0 |
exists $args{'row.names'} ? : |
|
348
|
0 |
0 |
unless $rt eq "ARRAY" or $rt eq "HASH" |
|
352
|
0 |
0 |
if ($rt eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($rt eq 'HASH') { } |
|
355
|
0 |
0 |
$n < $total ? : |
|
356
|
0 |
0 |
if $show < 0 |
|
358
|
0 |
0 |
if ($ucols) { } |
|
364
|
0 |
0 |
unless ref $row eq "HASH" |
|
369
|
0 |
0 |
grep({$_ eq 'row_name';} @cols) ? : |
|
|
0 |
0 |
defined $label_col ? : |
|
370
|
0 |
0 |
if (defined $lc) |
|
376
|
0 |
0 |
defined $lc ? : |
|
379
|
0 |
0 |
unless defined $lab_header |
|
383
|
0 |
0 |
if defined $sample |
|
386
|
0 |
0 |
if ($vt eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($vt eq 'HASH') { } |
|
388
|
0 |
0 |
$ucols ? : |
|
391
|
0 |
0 |
ref $data->{$k} eq 'ARRAY' ? : |
|
392
|
0 |
0 |
if $l > $total |
|
394
|
0 |
0 |
$n < $total ? : |
|
395
|
0 |
0 |
if $show < 0 |
|
397
|
0 |
0 |
grep({$_ eq 'row_name';} @allcols) ? : |
|
|
0 |
0 |
defined $label_col ? : |
|
398
|
0 |
0 |
unless not defined $lc |
|
399
|
0 |
0 |
defined $lc ? : |
|
401
|
0 |
0 |
defined $lc ? : |
|
408
|
0 |
0 |
$n < $total ? : |
|
409
|
0 |
0 |
if $show < 0 |
|
410
|
0 |
0 |
$show > 0 ? : |
|
411
|
0 |
0 |
if ($ucols) { } |
|
419
|
0 |
0 |
if defined $label_col |
|
420
|
0 |
0 |
exists $args{'row.names'} ? : |
|
436
|
0 |
0 |
unless defined $v |
|
437
|
0 |
0 |
unless &looks_like_number($v) |
|
440
|
0 |
0 |
@labels ? : |
|
441
|
0 |
0 |
unless defined $l and &looks_like_number($l) |
|
446
|
0 |
0 |
unless defined $v |
|
449
|
0 |
0 |
if ($maxw and length $v > $maxw) |
|
451
|
0 |
0 |
if $keep < 0 |
|
462
|
0 |
0 |
length $_ > $lab_w ? : |
|
467
|
0 |
0 |
if $l > $w[$j] |
|
473
|
0 |
0 |
if $g < 0 |
|
474
|
0 |
0 |
$right ? : |
|
479
|
0 |
0 |
$total == 1 ? : |
|
|
0 |
0 |
@cols == 1 ? : |
|
492
|
0 |
0 |
$total - $shown == 1 ? : |
|
|
0 |
0 |
if $shown < $total |
|
496
|
0 |
0 |
defined $fh ? : |
|
|
0 |
0 |
unless ($quiet) |