| line |
true |
false |
branch |
|
25
|
11 |
93 |
if $file =~ /\.fb2$/u |
|
26
|
58 |
35 |
unless -T $fh |
|
43
|
0 |
10 |
unless my($desc) = $xpc->findnodes("/FictionBook:FictionBook/FictionBook:description") |
|
52
|
10 |
0 |
if (defined $title) |
|
55
|
10 |
100 |
if ($name eq 'genre') { } |
|
|
10 |
90 |
elsif ($name eq 'author') { } |
|
|
10 |
80 |
elsif ($name eq 'book-title') { } |
|
|
10 |
70 |
elsif ($name eq 'lang' or $name eq 'src-lang') { } |
|
|
0 |
70 |
elsif ($name eq 'translator') { } |
|
71
|
10 |
0 |
if (defined $doc) |
|
74
|
10 |
100 |
if ($name eq 'author') { } |
|
|
10 |
90 |
elsif ($name eq 'program-used') { } |
|
|
10 |
80 |
elsif ($name eq 'date') { } |
|
|
10 |
70 |
elsif ($name eq 'id') { } |
|
|
10 |
60 |
elsif ($name eq 'version') { } |
|
|
0 |
60 |
elsif ($name eq 'src-ocr') { } |
|
82
|
10 |
0 |
if (defined $t) |
|
95
|
10 |
0 |
if (defined $publish) |
|
98
|
0 |
30 |
if ($name eq 'year' and not defined $self->{'Metadata'}->created) { } |
|
|
0 |
30 |
elsif ($name eq 'publisher') { } |
|
|
0 |
30 |
elsif ($name eq 'book-name') { } |
|
100
|
0 |
0 |
if (defined $t) |
|
113
|
0 |
10 |
unless defined $mime |
|
115
|
0 |
10 |
unless defined $format |
|
121
|
10 |
0 |
if (defined $covmeta) |
|
122
|
0 |
10 |
unless my($img) = $xpc->findnodes("./FictionBook:image", $covmeta) |
|
124
|
0 |
10 |
unless my $href = $img->getAttribute("l:href") |
|
126
|
0 |
10 |
unless my($binary) = $xpc->findnodes(qq[/FictionBook:FictionBook/FictionBook:binary[\@id="$href"]]) |
|
130
|
0 |
10 |
unless defined $mime |
|
132
|
0 |
10 |
unless defined $format |
|
167
|
0 |
10 |
unless (defined $self->{'Metadata'}->format) |
|
185
|
0 |
3 |
unless my(@bodies) = $xpc->findnodes("/FictionBook:FictionBook/FictionBook:body") |
|
196
|
0 |
3 |
if (defined $out) { } |
|
197
|
0 |
0 |
unless open my $fh, ">", $out |
|
219
|
0 |
2 |
unless my(@bodies) = $xpc->findnodes("/FictionBook:FictionBook/FictionBook:body") |
|
227
|
0 |
2 |
if (defined $out) { } |
|
228
|
0 |
0 |
unless open my $fh, ">", $out |
|
260
|
0 |
2 |
unless $self->has_cover |
|
279
|
0 |
2 |
if ($n >= $self->image_num) |