| line |
true |
false |
branch |
|
23
|
12 |
81 |
if $file =~ /\.html?$/u |
|
24
|
58 |
23 |
unless -T $fh |
|
28
|
11 |
12 |
if $head =~ /<[^<>]+xmlns\s*=\s*"\Q$XHTML_NS\E"[^<>]*>/u |
|
40
|
10 |
11 |
if (defined $ns and $ns->value eq $XHTML_NS) { } |
|
47
|
0 |
21 |
unless (defined $head) |
|
53
|
21 |
0 |
if (defined $title) |
|
60
|
21 |
11 |
unless (defined $name) |
|
64
|
0 |
11 |
unless (defined $content) |
|
67
|
0 |
11 |
if ($name eq 'dc.title') { } |
|
|
0 |
11 |
elsif ($name eq 'dc.language') { } |
|
|
0 |
11 |
elsif ($name eq 'dcterms.modified') { } |
|
|
0 |
11 |
elsif ($name eq 'dc.creator') { } |
|
|
0 |
11 |
elsif ($name eq 'dc.subject') { } |
|
|
0 |
11 |
elsif ($name eq 'dcterms.created') { } |
|
|
11 |
0 |
elsif ($name eq 'generator') { } |
|
|
0 |
0 |
elsif ($name eq 'description') { } |
|
73
|
0 |
0 |
if (defined $t) |
|
82
|
0 |
0 |
if (defined $t) |
|
94
|
21 |
0 |
if (defined $lang and not defined $self->{'Metadata'}->language) |
|
131
|
0 |
21 |
unless (defined $self->{'Metadata'}->title) |
|
152
|
0 |
6 |
if (defined $out) { } |
|
153
|
0 |
0 |
unless open my $fh, ">", $out |
|
176
|
0 |
5 |
if (defined $out) { } |
|
177
|
0 |
0 |
unless open my $fh, ">", $out |