| lib/Text/EscapeDelimiters.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 23 | 24 | 95.8 |
| line | true | false | branch |
|---|---|---|---|
| 17 | 2 | 3 | exists $$options{'EscapeSequence'} ? : |
| 26 | 1 | 15 | unless $eseq |
| 28 | 2 | 13 | unless (ref $delim eq 'ARRAY') |
| 29 | 1 | 1 | if (not defined $delim) { } |
| 1 | 0 | elsif (ref $delim) { } | |
| 35 | 2 | 38 | unless defined $char and length $char |
| 47 | 12 | 1 | unless (ref $delim eq 'ARRAY') |
| 48 | 2 | 10 | if (not defined $delim) { } |
| 1 | 9 | elsif (ref $delim) { } | |
| 54 | 1 | 11 | if scalar @$delim > 1 |
| 55 | 11 | 1 | if ($$self{'EscapeSequence'}) |
| 73 | 1 | 12 | unless $eseq |