Branch Coverage

blib/lib/Pod/MultiLang.pm
Criterion Covered Total %
branch 31 66 46.9


line true false branch
70 71 7 if (not $arg{'langs'}) { }
5 2 elsif (ref $arg{'langs'} eq 'ARRAY') { }
2 0 elsif (not ref $arg{'langs'}) { }
123 0 89 if (defined $$parser{'_skipblock'})
125 0 0 if ($command eq 'end' and $$parser{'_skipblock'} eq $paragraph)
132 3 86 if ($command =~ /^head[1-4]$/) { }
0 86 elsif ($command eq 'over') { }
0 86 elsif ($command eq 'back') { }
0 86 elsif ($command eq 'item') { }
2 84 elsif ($command eq 'begin') { }
2 82 elsif ($command eq 'end') { }
2 80 elsif ($command eq 'for') { }
2 78 elsif ($command eq 'encoding') { }
0 78 elsif ($command eq 'cut') { }
78 0 elsif ($command eq 'pod') { }
146 0 0 if (ref $info)
155 0 0 unless (defined $info)
165 0 0 if (ref $$parser{'_neststack'}[-1]) { }
0 0 elsif (not @{$$parser{'_neststack'};}) { }
0 0 elsif (not defined $$parser{'_neststack'}[-1]) { }
169 0 0 $paragraph =~ /^\d+$/ ? :
0 0 $paragraph eq '*' ? :
182 0 0 $paragraph =~ /^\d+$/ ? :
0 0 $paragraph eq '*' ? :
238 0 0 if (defined $$parser{'_skipblock'})
254 0 77 if (defined $$parser{'_skipblock'})
275 4 0 if (not defined $text or $text eq '')
277 4 0 if ($lang eq 'en') { }
279 3 1 !$sec ? :
4 0 $name ? :
297 0 2 unless defined $text
298 2 0 $text =~ s[^\s*(\w+)\s*[/;]\s*][] ? :
313 120 75 if ($$this{'_in_charset'} ne $$this{'_out_charset'})