Branch Coverage

blib/lib/XML/Handler/Dtd2Html.pm
Criterion Covered Total %
branch 0 362 0.0


line true false branch
75 0 0 if %{$decl;}
89 0 0 if (scalar @{$$self{'comments'};})
105 0 0 if (scalar @{$$self{'comments'};})
110 0 0 unless exists $$self{'doc'}{'hash_attr'}{$elt_name}
119 0 0 if (scalar @{$$self{'comments'};})
125 0 0 unless ($name =~ /^%/)
135 0 0 if (scalar @{$$self{'comments'};})
141 0 0 unless ($name =~ /^%/)
153 0 0 if (scalar @{$$self{'comments'};})
177 0 0 if (scalar @{$$self{'comments'};})
241 0 0 unless defined $str
250 0 0 unless defined $str
251 0 0 if length $$self{'tab'} . $$self{'raw'} . $raw > $$self{'max'}
261 0 0 unless ($$self{'raw'} =~ /^\s*$/)
273 0 0 if ($self->can($func)) { }
286 0 0 if (exists $$node{'__VALUE__'}) { }
0 0 elsif (exists $$node{'Mixed'}) { }
0 0 elsif (exists $$node{'children'}) { }
302 0 0 if (exists $$altern1{'choice'}) { }
0 0 elsif (exists $$altern1{'seq'}) { }
308 0 0 if (defined $altern2)
320 0 0 if (exists $$altern1{'Name'}) { }
0 0 elsif (exists $$altern1{'choice'}) { }
0 0 elsif (exists $$altern1{'seq'}) { }
321 0 0 if $$self{'need'}
324 0 0 unless $first
328 0 0 unless $first
333 0 0 if (defined $altern2)
417 0 0 if (defined $hash{'title'}) { }
424 0 0 if (uc $entry eq 'TITLE')
429 0 0 unless $$self{'title'}
442 0 0 $hash{'flag_date'} ? :
445 0 0 if (defined $hash{'path_tmpl'}) { }
456 0 0 if ($hash{'flag_multi'})
460 0 0 if (exists $$decl{'comments'})
463 0 0 if ($type eq 'element' and exists $$self{'hash_attr'}{$name})
465 0 0 if (exists $$attr{'comments'})
485 0 0 if s/^[\?\*\+\(\),\|]//
487 0 0 if s/^EMPTY//
489 0 0 if s/^ANY//
491 0 0 if s/^#PCDATA//
493 0 0 if s/^([A-Za-z_:][0-9A-Za-z\.\-_:]*)// and $$self{'hash_element'}{$name}{'uses'}{$1} = 1
497 0 0 if s/^([\S]+)//
504 0 0 if ($flag_zombi)
509 0 0 if $elt_name eq $$self{'root_name'}
510 0 0 unless (scalar keys %{$$elt_decl{'used_by'};})
538 0 0 unless open my $IN, '<', $filename
556 0 0 if (/^\s*@(\@?)\s*([\s0-9A-Z_a-z]+):\s*(.*)/) { }
0 0 elsif (/^\s*@(\@?)\s*([A-Z_a-z][0-9A-Z_a-z]*)\s+(.*)/) { }
561 0 0 if (uc $tag eq 'INCLUDE') { }
570 0 0 if (uc $tag eq 'INCLUDE') { }
588 0 0 $text =~ s/\A(\s+)//s ? :
589 0 0 $text =~ s/(\s+)\Z//s ? :
597 0 0 if $word =~ /^\s*$/
598 0 0 if $word eq $current
599 0 0 if ($word =~ /^[A-Za-z_:][0-9A-Za-z\.\-_:]*$/) { }
0 0 elsif ($word =~ m[^\w+://\w]) { }
0 0 elsif ($word =~ /^[\w.-]+\@[\w.-]+/) { }
600 0 0 if $$self{'flag_href'} and not $href
602 0 0 if (exists $$self{'hash_notation'}{$word}) { }
0 0 elsif (exists $$self{'hash_entity'}{$word}) { }
0 0 elsif (exists $$self{'hash_element'}{$word}) { }
614 0 0 if $$self{'hlink'}
618 0 0 if $$self{'hlink'}
661 0 0 unless defined $nb
662 0 0 unless defined $a_link
668 0 0 if ($flg_brief) { }
692 0 0 unless defined $nb
693 0 0 unless defined $a_link
699 0 0 if ($flg_brief) { }
723 0 0 unless defined $nb
724 0 0 unless defined $a_link
730 0 0 if ($flg_brief) { }
754 0 0 unless defined $nb
755 0 0 unless defined $a_link
776 0 0 if $$self{'hash_element'}{$name}{'done'}
778 0 0 unless defined $$self{'hash_element'}{$name}{'uses'}
780 0 0 unless scalar keys %{$$self{'hash_element'}{$name}{'uses'};}
783 0 0 if $depth > $$self{'_tree_depth'}
786 0 0 if $_ eq $name
787 0 0 if exists $done{$_}
803 0 0 if (exists $$self{'hash_element'}{$$self{'root_name'}}) { }
810 0 0 if $$self{'_tree_depth'} > 7
825 0 0 if ($$self{'flag_comment'} and exists $$decl{'comments'})
828 0 0 if (defined $doc)
834 0 0 unless (uc $entry eq 'BRIEF' or uc $entry eq 'HIDDEN' or uc $entry eq 'TITLE' and $$decl{'type'} eq 'doctype')
837 0 0 if ($entry =~ /^SAMPLE($|\s)/i) { }
864 0 0 if ($$self{'flag_comment'} and exists $$self{'hash_attr'}{$name})
866 0 0 if (exists $$attr{'comments'})
871 0 0 if (defined $doc)
877 0 0 unless (uc $entry eq 'BRIEF' or uc $entry eq 'HIDDEN')
879 0 0 if ($entry =~ /^SAMPLE($|\s)/i) { }
914 0 0 unless open my $IN, '<', "$path/$name"
931 0 0 if (defined $$self{'xml_decl'})
955 0 0 if ($type eq 'notation') { }
0 0 elsif ($type eq 'internal_entity') { }
0 0 elsif ($type eq 'external_entity') { }
0 0 elsif ($type eq 'element') { }
997 0 0 if (exists $$self{'hash_attr'}{$name})
1008 0 0 unless ($tokenized_type)
1014 0 0 if $value
1053 0 0 $text =~ s/\A(\s+)//s ? :
1054 0 0 $text =~ s/(\s+)\Z//s ? :
1062 0 0 if $word =~ /^\s*$/
1063 0 0 if ($word =~ /^<([A-Za-z_:][0-9A-Za-z\.\-_:]*)(>[\S]*)?$/)
1065 0 0 if (exists $$self{'hash_notation'}{$1}) { }
0 0 elsif (exists $$self{'hash_entity'}{$1}) { }
0 0 elsif (exists $$self{'hash_element'}{$1}) { }
1067 0 0 if defined $2
1071 0 0 if defined $2
1075 0 0 if defined $2
1088 0 0 unless open my $IN, '<', $example
1131 0 0 unless (-e $outfile)
1132 0 0 unless open my $OUT, '>', $outfile
1144 0 0 unless scalar keys %{$$self{'hash_element'};}
1150 0 0 if $$self{'css'}
1157 0 0 unless defined $$self{'template'}
1174 0 0 unless open my $OUT, '>', $filename
1201 0 0 unless scalar keys %{$$self{'hash_element'};}
1207 0 0 if $$self{'css'}
1214 0 0 unless defined $$self{'template'}
1225 0 0 unless open my $OUT, '>', $filename
1235 0 0 unless defined $$self{'template'}
1250 0 0 unless open $OUT, '>', $filename
1260 0 0 unless defined $$self{'template'}
1272 0 0 unless open $OUT, '>', $filename
1282 0 0 unless defined $$self{'template'}
1296 0 0 unless open $OUT, '>', $filename
1316 0 0 if ($$self{'flag_comment'} and exists $$decl{'comments'})
1322 0 0 if (uc $entry eq 'BRIEF')
1360 0 0 if (exists $$self{'hash_attr'}{$name})
1366 0 0 if ($type ne 'CDATA' and $type ne 'ID' and $type ne 'IDREF' and $type ne 'IDREFS' and $type ne 'ENTITY' and $type ne 'ENTITIES' and $type ne 'NMTOKEN' and $type ne 'NMTOKENS')
1374 0 0 if ($type =~ /^NOTATION/) { }
1396 0 0 if ($value)
1399 0 0 unless $value_default
1436 0 0 unless $name
1458 0 0 if (-e $filename and -e uc $filename)
1468 0 0 unless exists $$self{'not_sensitive'}
1482 0 0 unless (-e $infile)
1487 0 0 unless (-e $outfile)
1498 0 0 unless scalar keys %{$$self{'hash_element'};}
1506 0 0 if $$self{'css'}
1514 0 0 unless defined $$self{'template'}
1542 0 0 unless open my $OUT, '>', $filename
1552 0 0 unless defined $$self{'template'}
1581 0 0 unless open $OUT, '>', $filename
1591 0 0 unless defined $$self{'template'}
1619 0 0 unless open $OUT, '>', $filename
1624 0 0 if (scalar @elements)
1631 0 0 unless defined $$self{'template'}
1650 0 0 $first ? :
1655 0 0 $next ? :
0 0 $prev ? :
1666 0 0 $model =~ /#PCDATA/ ? :
0 0 !($model =~ /(ANY|EMPTY)/) ? :
1681 0 0 unless open $OUT, '>', $filename
1694 0 0 unless defined $$self{'template'}
1722 0 0 unless open $OUT, '>', $filename
1727 0 0 if (scalar @entities)
1733 0 0 unless defined $$self{'template'}
1752 0 0 $first ? :
1757 0 0 $next ? :
0 0 $prev ? :
1767 0 0 exists $$decl{'Value'} ? :
1778 0 0 unless open $OUT, '>', $filename
1791 0 0 unless defined $$self{'template'}
1819 0 0 unless open $OUT, '>', $filename
1824 0 0 if (scalar @notations)
1830 0 0 unless defined $$self{'template'}
1849 0 0 $first ? :
1854 0 0 $next ? :
0 0 $prev ? :
1874 0 0 unless open $OUT, '>', $filename
1887 0 0 unless defined $$self{'template'}
1915 0 0 unless open $OUT, '>', $filename
1920 0 0 if (scalar @examples)
1926 0 0 unless defined $$self{'template'}
1944 0 0 $first ? :
1949 0 0 $next ? :
0 0 $prev ? :
1963 0 0 unless open $OUT, '>', $filename