| line |
true |
false |
branch |
|
19
|
0 |
2 |
if grep {$_ eq "\@primes";} @_ |
|
20
|
0 |
2 |
if grep {$_ eq "\@prime";} @_ |
|
21
|
0 |
2 |
if grep {$_ eq "\@pr";} @_ |
|
22
|
0 |
2 |
if grep {$_ eq "\@p";} @_ |
|
23
|
0 |
2 |
if grep {$_ eq "\$probj";} @_ |
|
38
|
0 |
4 |
if (@_) |
|
68
|
0 |
2067 |
if $index < 0 |
|
73
|
12 |
2055 |
if ($index < $begidx or $index > $endidx) |
|
75
|
4 |
8 |
if ($index > $endidx and $index < $endidx + 3000) { } |
|
|
2 |
6 |
elsif ($index < $begidx and $index > $begidx - 3000) { } |
|
78
|
2 |
2 |
if ($self->{'ACCESS_TYPE'} > 2 or $index > $endidx + 1) { } |
|
81
|
0 |
2 |
if ($prlen > 40000) |
|
95
|
2 |
0 |
if ($self->{'ACCESS_TYPE'} < -2 or $index < $begidx - 1) { } |
|
97
|
2 |
0 |
$index <= 40000 ? : |
|
102
|
0 |
2 |
if $prnewlen > 80000 |
|
133
|
0 |
2 |
unless defined $shiftamount |
|
136
|
0 |
2 |
$shiftamount >= $self->{'SHIFTINDEX'} ? : |