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'} |