| line |
true |
false |
branch |
|
96
|
1 |
0 |
if $n != 65536 |
|
97
|
1 |
0 |
if $n |
|
112
|
0 |
70 |
unless defined $pos |
|
114
|
1 |
69 |
if $remaining < 64 and not $raf->{'BencodeEOF'} |
|
117
|
0 |
70 |
unless $$dataPt =~ /(.)/gs |
|
121
|
6 |
64 |
if ($tok eq 'i') { } |
|
|
6 |
58 |
elsif ($tok eq 'd') { } |
|
|
8 |
50 |
elsif ($tok eq 'l') { } |
|
|
14 |
36 |
elsif ($tok eq 'e') { } |
|
|
36 |
0 |
elsif ($tok =~ /^\d$/ and $$dataPt =~ /\G(\d*):/g) { } |
|
122
|
0 |
6 |
unless $$dataPt =~ /\G(-?\d+)e/g |
|
128
|
6 |
20 |
unless defined $k |
|
130
|
0 |
20 |
if (ref $k) |
|
131
|
0 |
0 |
if ref $k ne "SCALAR" |
|
135
|
0 |
20 |
unless defined $v |
|
142
|
8 |
15 |
unless defined $v |
|
151
|
36 |
0 |
if ($more <= 0) { } |
|
|
0 |
0 |
elsif ($more > 10000000) { } |
|
156
|
0 |
0 |
if $raf->Seek($more, 1) |
|
161
|
0 |
0 |
if ($n == $more) |
|
167
|
36 |
0 |
if (defined $value) { } |
|
|
0 |
0 |
elsif (not defined $val) { } |
|
169
|
0 |
36 |
if (length $value > 256) { } |
|
|
1 |
35 |
elsif ($value =~ /[^\t\x20-\x7e]/) { } |
|
172
|
0 |
1 |
if (&Image::ExifTool::XMP::IsUTF8(\$value) >= 0) { } |
|
203
|
0 |
27 |
defined $baseID ? : |
|
204
|
0 |
27 |
unless ($tagTablePtr->{$id}) |
|
208
|
0 |
0 |
if length $name < 2 or not $name =~ /^[A-Z]/ |
|
209
|
0 |
0 |
if defined $baseName |
|
213
|
0 |
27 |
unless my $tagInfo = $et->GetTagInfo($tagTablePtr, $id) |
|
214
|
8 |
19 |
if (ref $val eq "ARRAY") |
|
215
|
4 |
4 |
if ($tagInfo->{'JoinPath'}) { } |
|
216
|
0 |
5 |
ref $_ ? : |
|
219
|
1 |
3 |
if ref $more[0] eq "ARRAY" |
|
221
|
3 |
0 |
unless $i |
|
224
|
9 |
17 |
if defined $i |
|
225
|
17 |
9 |
if (@index) |
|
227
|
17 |
0 |
unless ($tagTablePtr->{$id}) |
|
237
|
0 |
4 |
if $name =~ /\d$/ |
|
242
|
0 |
17 |
unless $tagInfo = $et->GetTagInfo($tagTablePtr, $id) |
|
244
|
5 |
21 |
if (ref $val eq 'HASH') { } |
|
245
|
0 |
0 |
if ($et->Options("Struct") and $tagInfo and $tagInfo->{'Name'} eq "Info") |
|
252
|
5 |
0 |
if ($tagInfo->{'SubDirectory'}) { } |
|
267
|
3 |
17 |
if defined $i |
|
285
|
0 |
1 |
if $err |
|
286
|
1 |
0 |
if (ref $dict eq "HASH" and $dict->{'announce'} || $dict->{'created by'}) |
|
289
|
1 |
0 |
if &ExtractTags($et, $dict, $tagTablePtr) |