| lib/Perlmazing/Perlmazing/Precompile/sort_by_key.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 2 | 20 | 10.0 |
| line | true | false | branch |
|---|---|---|---|
| 5 | 0 | 50 | if (my $e = $@) { } |
| 6 | 0 | 0 | if ($e =~ /Malformed prototype/u) { } |
| 8 | 0 | 0 | if $@ |
| 14 | 0 | 50 | if $@ |
| 22 | 0 | 0 | if (&isa_hash($list)) { } |
| 0 | 0 | elsif (not &isa_array($list)) { } | |
| 23 | 0 | 0 | if (&void_context()) |
| 37 | 0 | 0 | if (lc $Perlmazing::Perlmazing::sort_by_key::a->{'key'} eq lc $Perlmazing::Perlmazing::sort_by_key::b->{'key'}) { } |
| 43 | 0 | 0 | if (&list_context()) { } |
| 0 | 0 | elsif (&scalar_context()) { } |