| line |
true |
false |
branch |
|
22
|
12 |
81 |
if $file =~ /\.html?$/u |
|
23
|
58 |
23 |
unless -T $fh |
|
27
|
11 |
12 |
if $head =~ /<[^<>]+xmlns\s*=\s*"\Q$XHTML_NS\E"[^<>]*>/u |
|
39
|
10 |
11 |
if (defined $ns and $ns->value eq $XHTML_NS) { } |
|
46
|
0 |
21 |
unless (defined $head) |
|
52
|
21 |
0 |
if (defined $title) |
|
59
|
21 |
11 |
unless (defined $name) |
|
63
|
0 |
11 |
unless (defined $content) |
|
66
|
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') { } |
|
72
|
0 |
0 |
if (defined $t) |
|
81
|
0 |
0 |
if (defined $t) |
|
93
|
21 |
0 |
if (defined $lang and not defined $self->{'Metadata'}->language) |
|
130
|
0 |
21 |
unless (defined $self->{'Metadata'}->title) |
|
150
|
0 |
6 |
if (defined $out) { } |
|
151
|
0 |
0 |
unless open my $fh, ">", $out |
|
173
|
0 |
5 |
if (defined $out) { } |
|
174
|
0 |
0 |
unless open my $fh, ">", $out |