| blib/lib/Perldoc/Parser/Kwid.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 20 | 22 | 90.9 |
| line | true | false | branch |
|---|---|---|---|
| 129 | 0 | 1 | unless defined $str |
| 145 | 61 | 16 | unless ($str =~ /\G(?:$candidates)/g) |
| 146 | 0 | 61 | if ($str =~ /\G(?:\\.)+/gs) { } |
| 158 | 64 | 16 | unless defined $$idx |
| 160 | 7 | 9 | if $cur > $pos |
| 163 | 7 | 9 | if ($idx <= @stack) |
| 168 | 1 | 6 | unless @stack |
| 181 | 2 | 7 | if ref $ends eq 'CODE' |
| 182 | 1 | 8 | if ref $event eq 'CODE' |
| 189 | 8 | 79 | if ($$$has{'nest'}) { } |
| 194 | 1 | 128 | if $$frame[0] eq $$$has{'id'} |