| blib/lib/Text/Stripper.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 19 | 26 | 73.0 |
| line | true | false | branch |
|---|---|---|---|
| 56 | 0 | 35 | unless my $text = shift() |
| 57 | 0 | 35 | unless my $len = shift() |
| 58 | 0 | 35 | unless my $tol = shift() |
| 59 | 15 | 20 | unless my $max = shift() |
| 60 | 0 | 35 | unless my $dots = shift() |
| 73 | 20 | 15 | if ($max) |
| 75 | 7 | 13 | if ($textLen <= $maxLen) |
| 96 | 13 | 15 | if ($max) { } |
| 111 | 0 | 13 | if ($addText eq '') |
| 139 | 15 | 230 | if ($char eq $_) |
| 150 | 24 | 15 | if (not $isSpace) { } |
| 166 | 28 | 0 | if ($dots) |
| 168 | 28 | 0 | if (length $shortText < length $text) |