| line |
true |
false |
branch |
|
14
|
714 |
215 |
if (my $ref = $self->{'inref'}) { } |
|
15
|
1 |
713 |
if $self->{'items'} |
|
16
|
1 |
712 |
if $self->{'order'} |
|
17
|
1 |
711 |
unless &reftype($ref) eq 'ARRAY' |
|
28
|
1 |
214 |
if grep {not &looks_like_number($_);} keys %{$$self{'items'};} |
|
32
|
1 |
213 |
if grep {not &looks_like_number($_) || ref $_ && &reftype($_) eq 'CODE';} @{$$self{'order'};} |
|
44
|
1 |
923 |
unless $params{'exists'} |
|
46
|
4 |
916 |
unless ref $got |
|
47
|
3 |
913 |
unless &reftype($got) eq 'ARRAY' |
|
57
|
5 |
307 |
if ref $idx |
|
71
|
1 |
176 |
if $top and $idx and $idx <= $top |
|
74
|
291 |
185 |
defined $top ? : |
|
|
476 |
22 |
unless defined $idx |
|
84
|
2 |
4 |
unless @_ == 1 and $code and ref $code and &reftype($code) eq 'CODE' |
|
109
|
5 |
1989 |
if (ref $idx) |
|
114
|
0 |
1989 |
if $state > $idx + 1 |
|
123
|
0 |
1989 |
unless $state == $idx + 1 |
|
128
|
14 |
1975 |
$overflow ? : |
|
138
|
3 |
916 |
if ($self->{'ending'} and @list) |