| line |
true |
false |
branch |
|
17
|
698 |
214 |
if (my $ref = $self->{'inref'}) { } |
|
18
|
1 |
697 |
if $self->{'items'} |
|
19
|
1 |
696 |
if $self->{'order'} |
|
20
|
1 |
695 |
unless &reftype($ref) eq 'ARRAY' |
|
31
|
1 |
213 |
if grep {not &looks_like_number($_);} keys %{$$self{'items'};} |
|
35
|
1 |
212 |
if grep {not &looks_like_number($_) || ref $_ && &reftype($_) eq 'CODE';} @{$$self{'order'};} |
|
47
|
1 |
906 |
unless $params{'exists'} |
|
49
|
4 |
899 |
unless ref $got |
|
50
|
3 |
896 |
unless &reftype($got) eq 'ARRAY' |
|
60
|
5 |
298 |
if ref $idx |
|
74
|
1 |
167 |
if $top and $idx and $idx <= $top |
|
77
|
282 |
184 |
defined $top ? : |
|
|
466 |
22 |
unless defined $idx |
|
87
|
2 |
4 |
unless @_ == 1 and $code and ref $code and &reftype($code) eq 'CODE' |
|
112
|
5 |
1942 |
if (ref $idx) |
|
117
|
0 |
1942 |
if $state > $idx + 1 |
|
126
|
0 |
1942 |
unless $state == $idx + 1 |
|
131
|
14 |
1928 |
$overflow ? : |
|
141
|
3 |
899 |
if ($self->{'ending'} and @list) |