Branch Coverage

blib/lib/XHTML/MediaWiki.pm
Criterion Covered Total %
branch 83 204 40.6


line true false branch
182 0 6 if $p{'type'} eq 'unordered' and not $p{'level'}
200 5 0 if $$self{'line'}
226 10 0 if ($line) { }
237 0 15 if @_
247 0 0 if $$self{'line'}
255 0 0 if $$self{'line'}
276 0 11 unless my $cnt = shift()
279 3 8 unless (defined $line)
300 13 0 if (defined $text)
315 0 1 if (not @$tagstack) { }
316 0 0 if $DEBUG
321 1 0 if $tag eq $toptag
333 0 0 if ($parser->in_nowiki and $type ne 'E' || $tagname ne 'nowiki')
337 0 0 if ($parser->in_state('pre') and $type ne 'E' || $tagname ne 'pre')
341 2 0 if (my $info = $$parser{'tags'}{$tagname}) { }
343 1 1 if ($type eq 'E') { }
344 0 1 if ($$info{'empty'}) { }
0 1 elsif ($$info{'nowiki'}) { }
0 1 elsif ($$info{'block'}) { }
0 1 elsif ($$info{'phrase'}) { }
1 0 elsif ($$info{'special'}) { }
363 0 1 if ($$info{'empty'}) { }
0 1 elsif ($$info{'nowiki'}) { }
0 1 elsif (my $blockname = $$info{'block'}) { }
0 1 elsif ($$info{'phrase'}) { }
1 0 elsif ($$info{'special'}) { }
372 0 0 unless ($$info{'notag'})
408 11 2 if (my($leading) = $dtext =~ /^(\n+)/m)
414 0 13 if ($is_cdata and $parser->can_cdata) { }
435 0 0 if (my $current = $self->check_current_block)
455 3 10 unless $block
463 0 13 if @_
466 13 0 if $cstate
473 0 0 if (my $block = $self->check_current_block)
483 8 3 if (my $block = $self->check_current_block)
493 11 0 unless $self->in_state('pre')
500 0 2 if ($$self{'current_block'})
532 0 3 if (not @$tagstack) { }
537 3 1 if ($$info{'block'})
542 3 0 if ($find)
544 0 3 if ($text)
549 3 0 if (my $current = $$self{'current_block'}) { }
0 0 elsif (my $state = $p{'new_state'}) { }
550 0 3 if ($p{'auto_merge'} and $p{'new_state'} eq $$self{'current_block'}->block_type) { }
551 0 0 if $$current{'line'}
558 0 3 if (my $state = $p{'new_state'})
559 0 0 if ($state eq 'ordered' or $state eq 'unordered')
560 0 0 unless exists $p{'indent'}
586 0 3 if (not @$tagstack) { }
587 0 0 if $XHTML::MediaWiki::DEBUG
591 0 3 unless ($$parser{'tags'}{$toptag}{'notag'})
594 3 0 if $tag eq $toptag
620 10 3 if (my $block = $self->check_current_block) { }
638 4 20 unless ($$self{'current_block'})
642 0 4 if $new_state eq 'unordered'
654 0 11 unless (defined $block)
676 0 5 unless $block
677 0 3 if ($$block{'type'} eq 'paragraph' and 0 == @{$$block{'lines'};} and not $$block{'line'})
701 0 1 if @_
785 0 11 if chomp $line
786 0 11 if ($parser->noformat) { }
789 0 0 if ($parser->in_prewiki and $line and not $line =~ /^\s+/)
792 0 11 if ($line =~ qr/^(={1,6})\s*(.+?)\s*\1$/) { }
0 11 elsif ($line =~ /^$/) { }
0 11 elsif ($line =~ /^\s(\s*.*)$/) { }
0 11 elsif ($line =~ /^(#+)\s*(.*)\s*$/) { }
0 11 elsif ($line =~ /^(\*+)\s*(.*)\s*$/) { }
797 0 0 if ($parser->check_current_block) { }
798 0 0 if ($parser->in_paragraph) { }
0 0 elsif ($parser->in_prewiki) { }
805 0 0 unless ({'header', 1, 'prewiki', 1}->{$$parser{'last'} or ''})
829 0 11 unless $line
835 0 11 if $close
841 0 5 unless defined $block
873 0 1 unless @blocks
904 0 5 if ($$tags{$type}) { }
914 0 5 grep(/^\Q$type\E$/, @{$$tags{'unformatted_blocks'};}) ? :
918 0 5 if (blessed $line)
926 0 5 if ((ref $start_line || '') eq 'CODE') { }
938 0 5 if $between
989 1 2 if ($type) { }
1009 0 7 unless defined $text
1027 0 5 if @_
1042 0 7 unless defined $text
1097 0 2 unless $line
1100 0 2 if ($$line{'state'} eq 'nowiki') { }
1133 0 3 unless $line
1134 0 3 unless $line
1137 0 3 if ($$line{'state'} eq 'nowiki') { }
1143 0 3 if ($ret_text =~ /^\s*$/) { }
1160 0 0 unless $$self{'level'}
1175 0 0 if ($$self{'block'})
1182 0 0 if ($$x{'block'})
1206 0 0 if (ref $self eq ref $cmp_block and $self->level == $cmp_block->level)
1223 0 0 if $index <= 0
1224 0 0 if ($index == 1) { }
1225 0 0 if (my $x = $$current{'block'}) { }
1327 0 4 if ($self->cmp($block)) { }
1351 0 4 if ($self->nests and $next->nests) { }
1386 0 0 unless $line
1399 0 0 unless $line
1401 0 0 if ($$line{'state'} eq 'nowiki') { }