lib/Tie/Proxy/Hash.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 21 | 36 | 58.3 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
111 | 1 | 0 | 1 | $i + 2 <= $#_ and UNIVERSAL::isa($_[$i + 2], 'CODE') |
197 | 0 | 5 | 15 | defined $hash && defined $key |
200 | 2 | 3 | 3 | $counter > -1 and $counter < @{$$self{' order'};} - 1 |
209 | 3 | 5 | 2 | defined $key && exists $$self{' keys'}{$key} |
214 | 5 | 1 | 2 | not defined $key and $counter == -1 |
321 | 15 | 5 | 0 | defined $_[3] and not UNIVERSAL::isa($_[3], 'CODE') |
397 | 2 | 0 | 1 | exists $_[0]{$_}{$_[1]} and not exists $_[0]{' translate'}{$_} |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
105 | 0 | 0 | 0 | ref $_[$i] || (defined $_[$i] ? "Simple value '$_[$i]'" : '*undef*') |
133 | 0 | 0 | 6 | ref $_[0] || $_[0] |
197 | 5 | 3 | 12 | not defined $hash && defined $key or exists $$self{' keys'}{$key} |
317 | 0 | 0 | 0 | ref $_[2] || "Simple value: '$_[2]'" |
321 | 0 | 0 | 0 | ref $_[2] || "Simple value: '$_[2]'" |