Branch Coverage

blib/lib/Pod/From/GoogleWiki.pm
Criterion Covered Total %
branch 58 70 82.8


line true false branch
14 5 0 unless (exists $$self{'tags'})
33 1 8 if $link =~ /\]$/
37 2 6 if ($link =~ /\.(jpe?g|png|bmp|gif)$/is or $title and $title =~ /\.(jpe?g|png|bmp|gif)$/is) { }
40 1 1 if ($title) { }
47 2 4 if ($title) { }
49 1 1 if ($link eq "http://search.cpan.org/perldoc?$title") { }
80 76 16 $line_no > 0 ? :
83 0 92 if not $output and $line =~ /^\#/
86 2 90 if ($line =~ /^\}\}\}$/) { }
2 88 elsif ($line =~ /^\{\{\{$/) { }
8 80 elsif ($$self{'_block_mark'}{'is_code'}) { }
89 2 0 unless $output =~ /\n{2,}$/
93 1 1 unless $output =~ /\n{2,}$/
96 8 0 if $output .= " $line\n"
100 6 74 if ($line =~ /^\|\|(.*?)\|\|$/) { }
0 74 elsif ($$self{'_block_mark'}{'in_table'}) { }
101 5 1 if ($$self{'_block_mark'}{'in_table'}) { }
107 1 5 if ($line_no == $#lines) { }
110 1 0 if $output .= $self->make_table(@trs)
117 0 0 if $output .= $self->make_table(@trs)
120 12 62 if ($line =~ /^\s*$/)
123 12 0 if $output .= "\n"
127 10 52 if ($line =~ /^(=+)\s+(.*?)\s+\1\s*$/)
131 7 3 unless $output =~ /\n{2,}$/
132 10 0 if $output .= "=head$h_level $text\n"
136 31 21 if ($line =~ /^\s+[\*|\#]/)
137 5 26 unless ($$self{'_block_mark'}{'in_list'})
138 4 1 unless ($output =~ /\n{2,}$/)
144 18 34 unless ($line =~ /^\s+/)
145 1 17 if ($$self{'_block_mark'}{'in_list'} and not $output =~ /\n{2,}$/)
156 14 2 if ($do_last_line)
166 3 13 if ($$self{'_block_mark'}{'in_list'} and not $output =~ /\n{2,}$/)
189 15 0 defined $_ ? :
217 68 5 if $start_pos == -1
220 0 5 if $end_pos == -1