Branch Coverage

blib/lib/HTML/SBC.pm
Criterion Covered Total %
branch 67 96 69.7


line true false branch
97 0 4 if ref $args ne 'HASH'
167 0 7 if defined $$self{'error_callback'}
172 0 7 if (defined $$self{'linkcheck_callback'})
180 0 4 if (defined $$self{'imgcheck_callback'})
222 565 70 unless defined $replacement
252 36 2 unless $self->_literal('QUOTE_START', "\n")
259 1 1 if ($self->_literal('QUOTE_END', "\n")) { }
1 0 elsif ($self->_literal('QUOTE_END_CITE')) { }
281 35 1 if $ulist eq ''
287 36 2 unless $self->_literal('UL_BULLET')
299 34 1 if $olist eq ''
305 35 2 unless $self->_literal('OL_BULLET')
313 2 32 unless $self->_literal('LINEBREAK')
317 17 15 unless ($$self{'qstack'} or $self->_literal('LINEBREAK', "\n"))
321 0 15 if ($paragraph =~ /^\s*$/) { }
334 5 105 if (not $$self{'istack'}{'EMPHASIS'} and defined(my $emphasis = $self->_emphasis)) { }
5 100 elsif (not $$self{'istack'}{'STRONG'} and defined(my $strong = $self->_strong)) { }
7 93 elsif (not $$self{'istack'}{'HYPERLINK'} and defined(my $hyperlink = $self->_hyperlink)) { }
4 89 elsif ($self->image_support and defined(my $image = $self->_image)) { }
28 61 elsif (defined(my $plain = $self->_plain)) { }
363 95 5 unless $self->_literal('EMPHASIS')
366 3 2 unless $self->_literal('EMPHASIS')
368 0 5 if $emphasis eq ''
374 88 5 unless $self->_literal('STRONG')
377 2 3 unless $self->_literal('STRONG')
379 0 5 if $strong eq ''
385 80 7 unless $self->_literal('HYPERLINK_START')
389 3 4 if $link =~ /^ *$/
390 2 5 unless $self->_literal('HYPERLINK_END')
392 7 0 if ($self->_linkcheck_callback($url)) { }
403 55 4 unless $self->_literal('IMAGE_START')
409 0 4 unless $self->_literal('IMAGE_END')
410 4 0 if ($self->_imgcheck_callback($url)) { }
421 95 0 if $self->_literal('PLAIN')
494 5 112 if (@_)
496 0 5 if (defined $valid and not &$valid($new))
522 0 17 unless defined $text
523 0 17 if $text =~ /^\s*$/
532 0 17 unless $$self{'text'} =~ /^\n*$/
547 0 7 unless defined $text
548 0 7 if $text =~ /^\s*$/
555 0 7 unless $$self{'text'} =~ /^\n*$/
620 1 1 unless defined $cite
710 0 0 unless defined $lang
711 0 0 unless grep {$lang eq $_;} @lang
743 0 0 unless (defined $static_transl)
813 0 0 wantarray ? :
821 0 0 wantarray ? :