| blib/lib/Convert/Transcribe.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 17 | 20 | 85.0 |
| line | true | false | branch |
|---|---|---|---|
| 24 | 6 | 2 | if (defined $_[0]) |
| 25 | 3 | 3 | if ($_[0] =~ /[\n\r]/) { } |
| 37 | 0 | 4 | unless open TLT, "<$filename" |
| 67 | 10 | 0 | if s/([\<\>][^\<\>]+)// |
| 70 | 34 | 5 | if (@r == 2) |
| 76 | 3 | 7 | if ($$i[0] eq '!') { } |
| 87 | 6 | 4 | if ($_ eq '$') { } |
| 88 | 1 | 5 | $t eq '>' ? : |
| 96 | 7 | 3 | if ($t eq '<') { } |
| 3 | 0 | elsif ($t eq '>') { } |