| line |
true |
false |
branch |
|
56
|
0 |
1 |
unless @{$self->{'data'};} >= $idx |
|
75
|
0 |
0 |
if $idx > $end |
|
76
|
0 |
0 |
if $idx < 0 |
|
79
|
0 |
0 |
if ($idx + $delta <= $end) |
|
82
|
0 |
0 |
if $self->{'data'}[$idx + $delta] eq $data |
|
84
|
0 |
0 |
if ($idx - $delta >= 0) |
|
87
|
0 |
0 |
if $self->{'data'}[$idx - $delta] eq $data |
|
89
|
0 |
0 |
if $idx + $delta > $end and $idx - $delta < 0 |
|
110
|
0 |
8 |
if grep(($_ > @{$self->{'data'};}), @{$args{'items'};}) |
|
112
|
2 |
6 |
if (my $code = $args{'on_item'}) |
|
142
|
0 |
0 |
if exists $args{'count'} |
|
145
|
0 |
0 |
if $idx > $max |
|
157
|
8 |
4 |
defined $idx ? : |
|
165
|
8 |
0 |
defined $idx ? : |
|
172
|
0 |
0 |
if (grep &$code($_), $self->{'data'}[$idx]) |