| line |
true |
false |
branch |
|
29
|
0 |
1 |
if (not do 'HTML/GMUCK/regexps.pl') |
|
56
|
0 |
0 |
unless defined $tab_width |
|
57
|
0 |
0 |
unless $this->tab_width($tab_width) |
|
60
|
0 |
0 |
unless defined $mode |
|
61
|
0 |
0 |
unless $this->mode($mode) |
|
64
|
0 |
0 |
defined $quote ? : |
|
70
|
0 |
0 |
if (my(@unknown) = keys %attr) |
|
98
|
0 |
0 |
unless $$this{'_html'} |
|
101
|
0 |
0 |
unless $line =~ /$HTML::GMUCK::Tag_Start/ |
|
113
|
0 |
0 |
$1 ? : |
|
127
|
0 |
0 |
if ($attr) |
|
149
|
0 |
0 |
unless $$this{'_html'} |
|
155
|
0 |
0 |
$$this{'_xhtml'} ? : |
|
169
|
0 |
0 |
if ($att ne lc $att) |
|
178
|
0 |
0 |
if (my $tq = $$this{'_quote'}) |
|
180
|
0 |
0 |
if ($q =~ /\\?([\"\'])/o) { } |
|
181
|
0 |
0 |
if ($1 ne $tq) |
|
203
|
0 |
0 |
unless $line =~ /$HTML::GMUCK::Tag_Start\w../o |
|
216
|
0 |
0 |
unless ($val =~ /^\d+$/o or $val =~ /[\\\$\(\[]/o) |
|
221
|
0 |
0 |
if $$this{'_xhtml'} and $lel eq 'img' and $latt eq 'border' |
|
244
|
0 |
0 |
unless ($val =~ /^\d+%?$/o or $val =~ /[\\\$\(\[]/o) |
|
264
|
0 |
0 |
$$this{'_xml'} ? : |
|
271
|
0 |
0 |
unless ($val =~ /$vre/ or $val =~ /[\\\$\(\[]/o) |
|
279
|
0 |
0 |
if not $$this{'_xhtml'} and $lel eq 'html' && $latt eq 'xmlns' || $latt eq 'xml:space' && $lel =~ /^(pre|s(cript|tyle))$/o |
|
283
|
0 |
0 |
$vals =~ /\|/o ? : |
|
304
|
0 |
0 |
if ($$this{'_min_attrs'}) |
|
315
|
0 |
0 |
if ($eq ne '=') |
|
337
|
0 |
0 |
unless ($att) |
|
342
|
0 |
0 |
if $lel eq 'input' and $attr eq 'name' and $line =~ /\stype=(\\?[\"\'])?(submi|rese)t\b/io |
|
347
|
0 |
0 |
if $lel eq 'map' and $attr eq 'id' and not $$this{'_xhtml'} |
|
369
|
0 |
0 |
unless $$this{'_html'} |
|
372
|
0 |
0 |
unless $line =~ /$HTML::GMUCK::Tag_Start.{6}/o |
|
386
|
0 |
0 |
if (not $mtype =~ /$HTML::GMUCK::MIME_Type/) { } |
|
|
0 |
0 |
elsif (lc $elem eq 'script' and $mtype =~ /(ecm|jav)ascript/io and not lc($mtype) =~ m[^application/(ecm|jav)ascript$]) { } |
|
418
|
0 |
0 |
unless $$this{'_html'} |
|
424
|
0 |
0 |
$$this{'_xhtml'} ? : |
|
436
|
0 |
0 |
if ($elem ne lc $elem) |
|
437
|
0 |
0 |
$slash ? : |
|
463
|
0 |
0 |
if (lc $start eq lc $end and $slash ne '/' or lc $start ne lc $end) |
|
488
|
0 |
0 |
if ($end =~ m[/>$]o) |
|
489
|
0 |
0 |
if ($$this{'_xhtml'} and not $el =~ /^$HTML::GMUCK::Compat_Elems$/io and not $end =~ m[\s\\?/]o) { } |
|
|
0 |
0 |
elsif (not $$this{'_xml'} and $end =~ m[/>$]o) { } |
|
512
|
0 |
0 |
if ($$this{'_xhtml'}) |
|
521
|
0 |
0 |
if ($end ne '/>') |
|
539
|
0 |
0 |
if ($end =~ m[(\s?/>)$]o) |
|
562
|
0 |
0 |
unless $$this{'_html'} |
|
565
|
0 |
0 |
unless $line =~ /\w{3}=./ |
|
614
|
0 |
0 |
if ($dt ne 'DOCTYPE') |
|
623
|
0 |
0 |
if ($$this{'_html'} and my($p1, $html, $t) = $rest =~ /^((html)\s+)(\w+)?/io) |
|
627
|
0 |
0 |
if ($$this{'_xhtml'} and $html ne 'html') |
|
638
|
0 |
0 |
if ($t =~ /^(PUBLIC|SYSTEM)$/io) { } |
|
639
|
0 |
0 |
if ($t ne uc $t) |
|
647
|
0 |
0 |
if ($$this{'_xml'} and uc $t eq 'PUBLIC') |
|
673
|
0 |
0 |
if ($mode) |
|
675
|
0 |
0 |
if ($mode eq 'HTML') { } |
|
|
0 |
0 |
elsif ($mode eq 'XML') { } |
|
|
0 |
0 |
elsif ($mode eq 'XHTML') { } |
|
685
|
0 |
0 |
unless $was_xml |
|
691
|
0 |
0 |
unless $was_xml |
|
703
|
0 |
0 |
if (defined $tw) |
|
704
|
0 |
0 |
if ($tw > 0) { } |
|
716
|
0 |
0 |
if (defined $minattr) |
|
717
|
0 |
0 |
if (not $minattr and $$this{'_xml'}) { } |
|
745
|
0 |
0 |
if (defined $q) |
|
749
|
0 |
0 |
if ($is_ok) { } |
|
769
|
0 |
0 |
unless defined $pos and $pos > 0 |
|
770
|
0 |
0 |
if ($$this{'_tab_width'} > 1 and $pos > 0) |
|
788
|
0 |
0 |
unless ($$err{'mesg'}) |
|
793
|
0 |
0 |
unless ($$err{'type'}) |
|
798
|
0 |
0 |
if ($$err{'type'} eq 'W') { } |