Branch Coverage

blib/lib/Text/TWikiFormat/SAX.pm
Criterion Covered Total %
branch 117 126 92.8


line true false branch
42 0 0 unless open FILE, $sysid
117 105 267 UNIVERSAL::isa($element, 'HASH') ? :
118 105 267 UNIVERSAL::isa($element, 'HASH') ? :
124 94 333 unless ($element)
127 44 50 unless $exists
134 249 50 if ($element) { }
50 0 elsif (grep {$s_element eq $_;} @TWiki::SAX::Parser::ENDING_WITH_EOL) { }
135 215 34 if $s_element eq $element
149 24 52 if ($ident == $prev_ident) { }
47 5 elsif ($ident > $prev_ident) { }
5 0 elsif ($ident < $prev_ident) { }
150 7 17 if ($element ne $prev_element)
151 7 0 if ($prev_element)
182 31 1 if ($$self{'stack'}[$_] and $$self{'stack'}[$_] =~ /^[ou]l$/)
191 42 31 if $s_element eq $$self{'list'}[-1][1]
200 43 33 if $type eq '*'
201 33 0 if $type =~ /^\w+$/
207 1 4 if $element eq 'ul'
208 4 0 if $element eq 'ol'
216 10 149 UNIVERSAL::isa($element, 'ARRAY') ? :
218 97 72 if ($type eq 'open') { }
249 779 609 if ($text)
251 14 765 if ($text =~ s/(.*?)//s) { }
5 760 elsif ($$self{'parse_html'} and $text =~ s/(.*?)
//s) { } 
3 757 elsif ($$self{'parse_wiki'} and $text =~ s/($b)-{3,}(\s)/$2/s) { }
71 686 elsif ($$self{'parse_wiki'} and $text =~ s/($b)(\t+| {3,})(\*|\w)[\.\) ]+([^\n]+)//s) { }
61 625 elsif ($$self{'parse_wiki'} and $text =~ s/($b)\|([^\n\|]+)(\|+)/|/s) { }
14 611 elsif ($$self{'parse_wiki'} and $text =~ s/($b)---(\+{1,6})\s*//s) { }
42 569 elsif ($$self{'parse_wiki'} and $text =~ s/($TWiki::SAX::Parser::p)\*($TWiki::SAX::Parser::s)/$2/s) { }
26 543 elsif ($$self{'parse_wiki'} and $text =~ s/($TWiki::SAX::Parser::p)\_($TWiki::SAX::Parser::s)/$2/s) { }
4 539 elsif ($$self{'parse_wiki'} and $text =~ s/($TWiki::SAX::Parser::p)\_\_($TWiki::SAX::Parser::s)/$2/s) { }
5 534 elsif ($$self{'parse_wiki'} and $text =~ s/($TWiki::SAX::Parser::p)\=($TWiki::SAX::Parser::s)/$2/s) { }
1 533 elsif ($$self{'parse_wiki'} and $text =~ s/($TWiki::SAX::Parser::p)\=\=($TWiki::SAX::Parser::s)/$2/s) { }
12 521 elsif ($$self{'parse_wiki'} and $text =~ s/(.*)\[\[([^\]]+)\](?:\[([\w\t \-]+)\])?\]//s) { }
13 508 elsif ($$self{'parse_html'} and $text =~ s[^([^<]*)(<[^/])][$2]) { }
14 494 elsif ($text =~ s[(.*?)][]s) { }
5 489 elsif ($$self{'parse_html'} and $text =~ s[(.*?)][]s) { }
13 476 elsif ($$self{'parse_wiki'} and $text =~ s/\|(\n|\Z)//s) { }
41 435 elsif ($$self{'parse_wiki'} and $text =~ s/($TWiki::SAX::Parser::e)\*($TWiki::SAX::Parser::f)/$2/s) { }
16 419 elsif ($$self{'parse_wiki'} and $text =~ s/($TWiki::SAX::Parser::e)\_($TWiki::SAX::Parser::f)/$2/s) { }
4 415 elsif ($$self{'parse_wiki'} and $text =~ s/($TWiki::SAX::Parser::e)\_\_($TWiki::SAX::Parser::f)/$2/s) { }
5 410 elsif ($$self{'parse_wiki'} and $text =~ s/($TWiki::SAX::Parser::e)\=($TWiki::SAX::Parser::f)/$2/s) { }
1 409 elsif ($$self{'parse_wiki'} and $text =~ s/($TWiki::SAX::Parser::e)\=\=([\s\,\.\;\:\!\?\)]|\Z)/$2/s) { }
8 401 elsif ($$self{'parse_html'} and $text =~ s[^([^<]*)(
307 94 elsif ($text =~ s/^([^\n]+)//) { }
94 0 elsif ($text =~ s/^\n//) { }
282 31 40 unless ($text =~ /^\n(\t+| {3,})(\*|\w+)[\.\) ]/)
294 19 42 unless ($$self{'in_table'})
300 26 35 unless ($$self{'in_tr'})
306 3 58 if length $finalizer > 1
312 5 56 if ($l1 >= 2)
313 1 4 if ($l2 <= 1) { }
322 14 47 if ($$self{'in_tr'} and $text =~ s/^\|\n//)
325 7 7 if ($$self{'in_table'} and not $text =~ /^\|/)
364 1 11 if $$self{'_onlink'}
382 4 9 if grep(($_ eq $tag), @TWiki::SAX::Parser::AUTO_CLOSED)
407 0 13 if ($$self{'in_td'})
411 12 1 if ($$self{'in_tr'})
449 293 14 $$self{'parse_html'} ? :
455 29 65 if ($$self{'parse_wiki'} and not $closed) { }
15 50 elsif (not $$self{'parse_wiki'}) { }
482 95 198 unless defined $$self{'DeEscaperRegex'}
491 112 920 $end ? :