| line |
true |
false |
branch |
|
71
|
0 |
4 |
ref $class ? : |
|
194
|
16 |
17 |
if (defined $$val{'lab'}) { } |
|
221
|
18 |
1 |
if (not $args[0]) { } |
|
255
|
0 |
0 |
ref $args[0] ? : |
|
256
|
0 |
0 |
if nocontent($$args{'path'}) or not -e $$args{'path'} |
|
262
|
0 |
0 |
unless $$args{'keep'} |
|
308
|
0 |
0 |
if hascontent($args{'lab'}) and not ref $args{'lab'} |
|
312
|
0 |
0 |
if (not ref $args{'lab'}) { } |
|
314
|
0 |
0 |
if (hascontent($$self{'_DATA'}[$i]{'lab'})) |
|
325
|
0 |
0 |
if (defined $j) |
|
330
|
0 |
0 |
wantarray ? : |
|
372
|
0 |
0 |
if hascontent($args{'lab'}) and not ref $args{'lab'} |
|
376
|
0 |
0 |
if (not ref $args{'lab'}) { } |
|
386
|
0 |
0 |
if (defined $j) |
|
391
|
0 |
0 |
wantarray ? : |
|
406
|
0 |
0 |
if (nocontent($args{'lab'}) and ref $$self{'_DATA'}[-1]{'seq'}) { } |
|
412
|
0 |
0 |
if (defined $j) |
|
444
|
0 |
0 |
if hascontent($$self{'_DATA'}[$_]{'lab'}) |
|
463
|
3 |
0 |
ref $args[0] ? : |
|
466
|
3 |
21 |
nocontent($_) ? : |
|
467
|
5 |
19 |
if (wantarray) { } |
|
468
|
3 |
2 |
if $bool |
|
471
|
1 |
18 |
if $bool == 0 |
|
474
|
1 |
2 |
wantarray ? : |
|
491
|
3 |
4 |
if (ref $args[0] eq 'ARRAY') { } |
|
499
|
8 |
50 |
nocontent($_) || !looks_like_number($_) ? : |
|
500
|
5 |
53 |
if (wantarray) { } |
|
501
|
2 |
3 |
if $bool |
|
504
|
5 |
48 |
if $bool == 0 |
|
508
|
1 |
6 |
wantarray ? : |
|
523
|
1 |
4 |
ref $args[0] ? : |
|
526
|
3 |
12 |
if (nocontent($_)) { } |
|
|
11 |
1 |
elsif (looks_like_number $_) { } |
|
530
|
2 |
9 |
$_ < 0 || $_ > 1 ? : |
|
532
|
5 |
10 |
if (wantarray) { } |
|
533
|
1 |
4 |
if $bool |
|
536
|
2 |
8 |
if $bool == 0 |
|
539
|
1 |
4 |
wantarray ? : |
|
554
|
0 |
3 |
ref $args[0] ? : |
|
557
|
0 |
5 |
if (nocontent($_)) { } |
|
|
5 |
0 |
elsif (looks_like_number $_) { } |
|
561
|
3 |
2 |
$_ >= 0 && $_ == int $_ ? : |
|
566
|
0 |
5 |
if (wantarray) { } |
|
567
|
0 |
0 |
if $bool |
|
570
|
2 |
3 |
if $bool == 0 |
|
573
|
0 |
3 |
wantarray ? : |
|
588
|
0 |
2 |
ref $args[0] ? : |
|
591
|
0 |
5 |
if (nocontent($_)) { } |
|
|
5 |
0 |
elsif (looks_like_number $_) { } |
|
595
|
4 |
1 |
$_ > 0 ? : |
|
597
|
0 |
5 |
if (wantarray) { } |
|
598
|
0 |
0 |
if $bool |
|
601
|
1 |
4 |
if $bool == 0 |
|
604
|
0 |
2 |
wantarray ? : |
|
615
|
0 |
0 |
$args{'data'} ? : |
|
617
|
0 |
0 |
if ref $data eq 'HASH' |
|
621
|
0 |
0 |
if ($tmp_count != $n) { } |
|
643
|
0 |
0 |
unless looks_like_number($$dat[$i]) |
|
662
|
0 |
0 |
ref $args[0] ? : |
|
664
|
0 |
0 |
unless print {*STDOUT;} join($delim, @{$self->access($args);}), "\n" |
|
679
|
0 |
0 |
$lim > 5 ? : |
|
681
|
0 |
0 |
defined $$self{'_DATA'}[$i]{'lab'} ? : |
|
688
|
0 |
0 |
if $len_lab > $maxlens[1] |
|
689
|
0 |
0 |
if $len_n > $maxlens[2] |
|
699
|
0 |
0 |
unless print {*STDOUT;} $tbl->draw |
|
714
|
0 |
0 |
ref $args[0] ? : |
|
715
|
0 |
0 |
if nocontent($$args{'path'}) |
|
733
|
0 |
0 |
if (nocontent($$hoa{$name}[$i]) or not looks_like_number($$hoa{$name}[$i])) { } |
|
743
|
0 |
0 |
unless scalar @clean |
|
747
|
0 |
0 |
if ref $purged_n |
|
758
|
0 |
0 |
unless looks_like_number($$hoa{$name}[$i]) |
|
784
|
0 |
0 |
if ref $purged_n |
|
791
|
5 |
24 |
if (_isa_hashref_of_arefs($args[0])) { } |
|
|
14 |
10 |
elsif (_isa_hash_of_arefs(@args)) { } |
|
|
8 |
2 |
elsif (_isa_array_of_arefs(@args)) { } |
|
|
0 |
2 |
elsif (ref $args[0]) { } |
|
811
|
24 |
5 |
if (not ref $arg or ref $arg ne 'HASH') { } |
|
827
|
21 |
8 |
if (is_even(scalar @args)) { } |
|
832
|
23 |
2 |
if (hascontent($lab) and ref $val eq 'ARRAY') { } |
|
838
|
2 |
23 |
if $bool == 0 |
|
849
|
8 |
2 |
if (all sub {
ref $_ eq 'ARRAY';
}
, @args) { } |
|
862
|
7 |
16 |
if (defined $j) { } |
|
885
|
10 |
19 |
if (not $args[0]) { } |
|
889
|
0 |
19 |
ref $args[0] ? : |
|
890
|
0 |
19 |
if (hascontent($$args{'index'})) { } |
|
|
19 |
0 |
elsif (hascontent($$args{'label'})) { } |
|
900
|
29 |
0 |
defined $i && ref $$self{'_DATA'}[$i]{'seq'} ? : |
|
909
|
26 |
4 |
if ($$self{'_DATA'}[$i]{'lab'} and $$self{'_DATA'}[$i]{'lab'} eq $label) |
|
913
|
26 |
16 |
$k ? : |
|
919
|
2 |
0 |
if (hascontent($$dat{'lab'})) { } |