Condition Coverage

blib/lib/String/Lookup/PurePerl.pm
Criterion Covered Total %
condition 12 20 60.0


and 2 conditions

line l !l condition
235 0 7 $list->[$index] and $self->[4] = $index and return $list->[$index]
256 0 6 $list->[$index] and $self->[4] = $index and return $list->[$index]

and 3 conditions

line !l l&&!r l&&r condition
102 0 0 8 defined $tag and length $tag
235 0 0 7 $list->[$index] and $self->[4] = $index
256 0 0 6 $list->[$index] and $self->[4] = $index

or 2 conditions

line l !l condition
56 7 17 delete $param{'offset'} || 0
57 7 17 delete $param{'increment'} || 1

or 3 conditions

line l !l&&r !l&&!r condition
182 16 21 13 $self->[2]{${$_[0];}} || do { my $index = $self->[0] += $self->[1]; $self->[2]{$self->[3][$index] = ${$_[0];}} = $index; return $index unless $self->[5]; push @{$$self[6];}, $index; return $index unless $self->[7]; $self->[7]->($self); return $index }