Branch Coverage

blib/lib/Aion/Format/Html.pm
Criterion Covered Total %
branch 45 90 50.0


line true false branch
13 1 0 @_ ? :
1108 0 0 unless exists $SINGLE_TAG{$tag}
1118 0 0 if exists $SINGLE_TAG{$tag}
1125 0 0 unless @$S
1128 0 0 if $$S[$S->$#*][0] ne $tag
1144 1 0 $symbols_on_page / 3 < 1000 ? :
1172 0 12 if (/^&/u) { }
0 12 elsif (m[^
0 12 elsif (/^<([a-z]\w*)/u) { }
1176 0 0 if $@
1178 0 0 if $tag eq "p"
1185 8 4 if $c < $symbols_on_page
1187 1 3 unless $i_page
1190 0 4 if (/^\n/u) { }
1 3 elsif (not $is_proposal and /^$re_proposal/u) { }
1 2 elsif ($c >= $max) { }
1194 1 0 if $page[$i_page] =~ /^\s/u
1202 1 0 if @page
1205 0 1 if @pages > 1 and length $pages[$#pages] < $symbols_on_page * 2 / 3
1212 0 1 if $end1 ne $end2
1249 2 0 @_ ? :
1255 1 0 exists $ENTITIES{$+{'word'}} ? :
0 0 exists $+{'hex'} ? :
0 0 exists $+{'num'} ? :
1 0 if (exists $+{'word'}) { }
1267 5 1 $+{'s1'} eq '' ? :
0 6 $pre ? :
1275 0 3 if $tag eq "pre"
1276 0 3 if (exists $+{'close'}) { }
1278 0 1 $pre ? :
2 0 exists $+{'ctag'} ? :
3 2 exists $+{'tag'} ? :
0 5 exists $+{'xhr'} ? :
0 5 exists $+{'nbsp'} ? :
1 5 exists $+{'space'} ? :
1280 0 2 if $tag eq "pre"
1286 6 0 $+{'s2'} eq '' || $s1 ? :
0 6 $pre ? :
1288 1 5 $x =~ /\n/u ? :
1469 3 6 unless exists $SAFE_TAG{lc $2}
1470 2 4 if $1 ne ""
1483 0 0 lc $+{'attr'} ~~ ['src', 'href'] ? :
0 0 $+{'val'} eq '' ? :
0 2 if exists $SAFE_ATTR{lc $+{'attr'}}
1486 0 4 if lc $tag eq "a"