| blib/lib/App/perlsh.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 32 | 25.0 |
| line | true | false | branch |
|---|---|---|---|
| 66 | 0 | 0 | length $a > length $b ? : |
| 73 | 1 | 0 | unless defined $leader |
| 74 | 1 | 0 | unless defined $leader2 |
| 76 | 0 | 1 | if (not defined $v) { } |
| 1 | 0 | elsif (not ref $v) { } | |
| 0 | 0 | elsif (ref $v eq 'SCALAR') { } | |
| 0 | 0 | elsif (ref $v eq 'ARRAY') { } | |
| 0 | 0 | elsif (ref $v eq 'HASH') { } | |
| 80 | 0 | 1 | if ($v =~ /[^\x20-\x7e]/) { } |
| 105 | 0 | 0 | if ($oneline) |
| 107 | 0 | 0 | if length $ret < $COLS |
| 123 | 0 | 0 | if ($oneline) |
| 125 | 0 | 0 | if length $ret < $COLS |
| 158 | 0 | 1 | ref $_[0] ? : |
| 165 | 0 | 1 | unless (defined $sub) |
| 172 | 0 | 1 | if ($@) |