| line |
true |
false |
branch |
|
17
|
435 |
660 |
if (defined(my $ref = $self->{'inref'})) { } |
|
18
|
1 |
434 |
if $self->{'items'} |
|
19
|
1 |
433 |
if $self->{'order'} |
|
20
|
1 |
432 |
unless &reftype($ref) eq "ARRAY" |
|
31
|
1 |
659 |
if grep {not &looks_like_number($_);} keys %{$$self{"items"};} |
|
35
|
1 |
658 |
if grep {not &looks_like_number($_) || ref $_ && &reftype($_) eq 'CODE';} @{$$self{"order"};} |
|
51
|
3 |
1088 |
unless $params{'exists'} |
|
53
|
2 |
1086 |
unless defined $got |
|
54
|
5 |
1081 |
unless ref $got |
|
55
|
8 |
1073 |
unless &reftype($got) eq "ARRAY" |
|
61
|
3 |
1 |
unless defined $self->{'meta'} |
|
71
|
17 |
1694 |
if ref $idx |
|
85
|
1 |
1366 |
if $top and $idx and $idx <= $top |
|
88
|
1675 |
628 |
defined $top ? : |
|
|
2303 |
26 |
unless defined $idx |
|
98
|
2 |
17 |
unless @_ == 1 and $code and ref $code and &reftype($code) eq "CODE" |
|
121
|
2 |
1077 |
if defined $meta |
|
132
|
18 |
3475 |
if (ref $idx) |
|
137
|
0 |
3475 |
if $state > $idx + 1 |
|
147
|
0 |
4 |
$overflow ? : |
|
159
|
0 |
3475 |
unless $state == $idx + 1 |
|
164
|
12 |
3463 |
$overflow ? : |
|
188
|
7 |
1 |
if ($self->{'ending'}) |
|
196
|
1 |
6 |
$self->{'ending'} eq 'implicit' ? : |