| blib/lib/MCE/Shared/Ordhash.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 3 | 25 | 12.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 423 | 0 | 0 | 0 | @keys == 1 and $keys[0] =~ /^(?:key|val)[ ]+\S\S?[ ]+\S/ |
| 444 | 2 | 0 | 0 | @_ == 1 and $_[0] =~ /^(?:key|val)[ ]+\S\S?[ ]+\S/ |
| 468 | 3 | 0 | 0 | @_ == 1 and $_[0] =~ /^(?:key|val)[ ]+\S\S?[ ]+\S/ |
| 492 | 0 | 0 | 0 | @_ == 1 and $_[0] =~ /^(?:key|val)[ ]+\S\S?[ ]+\S/ |
| line | l | !l | condition |
|---|---|---|---|
| 682 | 0 | 0 | $_[2] // "" |
| 700 | 0 | 0 | $_[2] || 0 |
| 718 | 0 | 0 | $_[2] || 0 |
| 727 | 0 | 0 | $data->{$key}-- // 0 |
| 736 | 0 | 0 | $data->{$key}++ // 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 141 | 0 | 4 | 0 | delete $indx->{$key} // do { return undef unless exists $data->{$key}; %{$indx;} ? $_[0]->_fill_index : do { $_[0]->purge if ${$gcnt;}; my $i; $i = ${$begi;} = 0; $$indx{$keys->[$_]} = $i++ foreach (0 .. $#{$keys;}) }; delete $indx->{$key} } |