| lib/Convert/Morse.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 18 | 83.3 |
| line | true | false | branch |
|---|---|---|---|
| 35 | 1 | 18 | if not defined $ascii or $ascii eq '' |
| 47 | 1 | 19 | if not defined $morse or $morse eq '' |
| 49 | 19 | 0 | if substr($morse, -1, 1) ne ' ' |
| 60 | 0 | 88 | unless defined $token |
| 61 | 35 | 53 | if length $token > 1 |
| 63 | 9 | 79 | unless (defined $sym) |
| 76 | 1 | 1 | error() ? : |
| 84 | 1 | 1 | error() ? : |
| 100 | 1 | 0 | if (defined $tokens) |