Branch Coverage

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