| line |
true |
false |
branch |
|
11
|
0 |
0 |
unless (@_ == 2) |
|
28
|
0 |
0 |
unless $branch |
|
32
|
0 |
0 |
if ($branch eq 'perl') { } |
|
|
0 |
0 |
elsif (my($bv) = $branch =~ /^maint-(.*)/) { } |
|
37
|
0 |
0 |
if ($bv eq '5.004') { } |
|
|
0 |
0 |
elsif ($branch =~ m[/]) { } |
|
40
|
0 |
0 |
if ($branch eq 'maint-5.6/perl-5.6.2') { } |
|
58
|
0 |
0 |
if ($patchlevel and $patchlevel >= $patches[0] and $patchlevel <= $patches[-1]) { } |
|
|
0 |
0 |
elsif (defined $baseperl and length $baseperl) { } |
|
59
|
0 |
0 |
if (defined $baseperl and length $baseperl and grep {$_ eq $baseperl;} @ver) |
|
61
|
0 |
0 |
unless ($prev eq $baseperl) |
|
67
|
0 |
0 |
if ($baseperl eq '0') { } |
|
68
|
0 |
0 |
if ($ver[0] eq '0') { } |
|
74
|
0 |
0 |
if $prev and $baseperl eq $prev or @ver > 1 and $baseperl eq $ver[-2] |
|
79
|
0 |
0 |
if (defined $baseperl and length $baseperl) { } |
|
80
|
0 |
0 |
if ($baseperl eq '0') { } |
|
83
|
0 |
0 |
unless (grep {$_ eq $baseperl;} @ver) |
|
88
|
0 |
0 |
if (@ver > 1) { } |
|
|
0 |
0 |
elsif (@ver == 1) { } |
|
97
|
0 |
0 |
if ($patchlevel) { } |
|
98
|
0 |
0 |
unless (grep {$_ eq $patchlevel;} @patches) |
|
101
|
0 |
0 |
if (@neighbors) { } |
|
102
|
0 |
0 |
if (@neighbors == 1) { } |
|
123
|
0 |
0 |
if $x < $$arr[0] |
|
124
|
0 |
0 |
if $x > $$arr[-1] |
|
127
|
0 |
0 |
if ($$arr[$i] < $x) { } |
|
|
0 |
0 |
elsif ($$arr[$i] > $x) { } |