| line |
true |
false |
branch |
|
340
|
1 |
0 |
if $val =~ /charset=['"]?([-\w]+)/ |
|
353
|
0 |
157 |
if ($] < 5.006001) { } |
|
357
|
0 |
157 |
$] < 5.01 ? : |
|
359
|
0 |
157 |
unless defined $val |
|
360
|
45 |
112 |
if $entityName{$val} |
|
374
|
16 |
151 |
if ($str =~ /[\x80-\xff]/) |
|
376
|
2 |
14 |
unless (%entityName) |
|
385
|
0 |
16 |
if ($enc and $enc ne 'UTF8') { } |
|
418
|
0 |
1 |
unless $raf->Read($buff, 256) |
|
419
|
0 |
1 |
unless $buff =~ /^(\xef\xbb\xbf)?\s*<(!DOCTYPE\s+HTML|HTML|\?xml)/i |
|
420
|
1 |
0 |
if $2 eq "?xml" |
|
423
|
0 |
1 |
unless $raf->Seek(0, 0) |
|
426
|
0 |
1 |
unless $/ |
|
431
|
5 |
71 |
unless (defined $doc) |
|
433
|
4 |
1 |
unless $buff =~ /
|
|
438
|
1 |
70 |
if $buff =~ m[]i |
|
440
|
0 |
1 |
unless defined $doc |
|
445
|
1 |
35 |
unless $doc =~ /<([\w:.-]+)(.*?)>/gs |
|
449
|
33 |
2 |
if ($attrs =~ m[/$]) { } |
|
458
|
2 |
0 |
if ($doc =~ /$close/gs) { } |
|
462
|
0 |
0 |
unless $tag eq "meta" |
|
467
|
33 |
2 |
if ($tag eq 'meta') { } |
|
|
1 |
1 |
elsif ($tag eq 'xml') { } |
|
471
|
32 |
1 |
if ($attrs =~ /\bname\s*=\s*['"]?([\w:.-]+)/is) { } |
|
|
1 |
0 |
elsif ($attrs =~ /\bhttp-equiv\s*=\s*['"]?([\w:.-]+)/is) { } |
|
478
|
0 |
33 |
unless $tag = lc $tagName |
|
480
|
33 |
0 |
if ($attrs =~ /\bcontent\s*=\s*(['"])(.*?)\1/is or $attrs =~ /\bcontent\s*=\s*(['"]?)([\w:.-]+)/is) { } |
|
485
|
0 |
0 |
unless length $val |
|
488
|
33 |
0 |
if ($tag =~ /^([\w-]+)[:.]([\w-]+)/) |
|
491
|
33 |
0 |
if ($tagInfo and $tagInfo->{'SubDirectory'}) { } |
|
504
|
0 |
25 |
unless $tagInfo and $tagInfo->{'SubDirectory'} |
|
506
|
5 |
20 |
unless ($table->{$tag}) |
|
514
|
25 |
0 |
if $et->{'HTMLCharset'} |
|
520
|
0 |
1 |
unless $tag eq "title" |
|
522
|
0 |
34 |
unless ($table->{$tag}) |
|
526
|
0 |
0 |
$grp eq 'http-equiv' ? : |
|
|
0 |
0 |
if $grp |
|
531
|
32 |
2 |
if $et->{'HTMLCharset'} |