| blib/lib/Sort/Packed.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 26 | 57.6 |
| line | true | false | branch |
|---|---|---|---|
| 46 | 0 | 39 | unless my($dir, $pattern, $rep) = $_[0] =~ /^([+\-]?)(\w!?)(\d*)$/ |
| 49 | 13 | 26 | $dir eq '-' ? : |
| 52 | 0 | 39 | if $pattern =~ /^[bBhHuUwxX]/ |
| 61 | 0 | 39 | if $@ |
| 65 | 18 | 21 | $test2 eq '-1' ? : |
| 67 | 9 | 30 | if ($pattern =~ /^[fdFD]/) { } |
| 72 | 6 | 24 | if ($vsize == 1 or $ix == $vsize - 1) { } |
| 24 | 0 | elsif ($ix == 0) { } | |
| 87 | 0 | 390 | unless @_ == 2 |
| 93 | 0 | 390 | unless @_ == 2 |
| 101 | 0 | 390 | unless @_ == 3 |
| 109 | 0 | 0 | unless @_ == 2 |
| 115 | 0 | 0 | unless @_ == 2 |