| line |
true |
false |
branch |
|
24
|
11 |
93 |
if $file =~ /\.fb2$/u |
|
25
|
58 |
35 |
unless -T $fh |
|
42
|
0 |
10 |
unless my($desc) = $xpc->findnodes("/FictionBook:FictionBook/FictionBook:description") |
|
51
|
10 |
0 |
if (defined $title) |
|
54
|
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') { } |
|
70
|
10 |
0 |
if (defined $doc) |
|
73
|
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') { } |
|
81
|
10 |
0 |
if (defined $t) |
|
94
|
10 |
0 |
if (defined $publish) |
|
97
|
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') { } |
|
99
|
0 |
0 |
if (defined $t) |
|
112
|
0 |
10 |
unless defined $mime |
|
114
|
0 |
10 |
unless defined $format |
|
120
|
10 |
0 |
if (defined $covmeta) |
|
121
|
0 |
10 |
unless my($img) = $xpc->findnodes("./FictionBook:image", $covmeta) |
|
123
|
0 |
10 |
unless my $href = $img->getAttribute("l:href") |
|
125
|
0 |
10 |
unless my($binary) = $xpc->findnodes(qq[/FictionBook:FictionBook/FictionBook:binary[\@id="$href"]]) |
|
129
|
0 |
10 |
unless defined $mime |
|
131
|
0 |
10 |
unless defined $format |
|
166
|
0 |
10 |
unless (defined $self->{'Metadata'}->format) |
|
184
|
0 |
3 |
unless my(@bodies) = $xpc->findnodes("/FictionBook:FictionBook/FictionBook:body") |
|
194
|
0 |
3 |
if (defined $out) { } |
|
195
|
0 |
0 |
unless open my $fh, ">", $out |
|
217
|
0 |
2 |
unless my(@bodies) = $xpc->findnodes("/FictionBook:FictionBook/FictionBook:body") |
|
224
|
0 |
2 |
if (defined $out) { } |
|
225
|
0 |
0 |
unless open my $fh, ">", $out |
|
257
|
0 |
2 |
unless $self->has_cover |
|
276
|
0 |
2 |
if ($n >= $self->image_num) |