| blib/lib/Tie/Hash/Sorted.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 9 | 9 | 100.0 |
| line | l | !l | condition |
|---|---|---|---|
| 83 | 5 | 12 | $type ||= 'default' |
| 106 | 7 | 10 | $opt{'Sort_Routine'} || sub { my $hash = shift(); [(sort {$a <=> $b unless $a cmp $b;} keys %$hash)]; } |
| 111 | 10 | 5 | $opt{'Hash'} || {} |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 56 | 3 | 16 | 8 | $$self[6] eq 'none' or $$self[5] |