Branch Coverage

blib/lib/Stardoc/Module/Perl.pm
Criterion Covered Total %
branch 16 28 57.1


line true false branch
74 2 9 if ($key eq 'author') { }
1 8 elsif ($key eq 'see') { }
78 1 0 ref $val ? :
88 0 2 if ref $val eq 'HASH'
89 0 2 ref $val eq 'ARRAY' ? :
91 2 0 unless (ref $$list[$i])
94 2 0 if ($string =~ /^\s*(.*?)\s*<(.*)>$/) { }
110 2 6 if ($text =~ /^##\s/)
113 6 0 if ($text =~ /^=\w/)
117 0 0 if ($text =~ s/^__(END|DATA)__\s\n//)
133 2 0 if ($text =~ s/(^\w+:\s.*?\n)(\.\.\.\s*\n|\n\s*|\z)//s) { }
0 0 elsif ($text =~ s/^(=\w.*)//s) { }
155 4 2 if ($section =~ /$name_re/) { }
170 0 2 if ($@)