| 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';} @_ |
|
36
|
0 |
4 |
if (@_) |
|
66
|
0 |
2067 |
if $index < 0 |
|
71
|
51 |
2016 |
if ($index < $begidx or $index > $endidx) |
|
73
|
20 |
31 |
if ($index > $endidx and $index < $endidx + 3000) { } |
|
|
24 |
7 |
elsif ($index < $begidx and $index > $begidx - 3000) { } |
|
76
|
15 |
5 |
if ($self->{'ACCESS_TYPE'} > 2 or $index > $endidx + 1) { } |
|
87
|
15 |
9 |
if ($self->{'ACCESS_TYPE'} < -2 or $index < $begidx - 1) { } |
|
88
|
15 |
0 |
$index <= 50000 ? : |
|
121
|
0 |
2 |
unless defined $shiftamount |
|
124
|
0 |
2 |
$shiftamount >= $self->{'SHIFTINDEX'} ? : |