| line |
true |
false |
branch |
|
95
|
1 |
0 |
if $n != 65536 |
|
96
|
1 |
0 |
if $n |
|
111
|
0 |
70 |
unless defined $pos |
|
113
|
1 |
69 |
if $remaining < 64 and not $raf->{'BencodeEOF'} |
|
116
|
0 |
70 |
unless $$dataPt =~ /(.)/gs |
|
120
|
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) { } |
|
121
|
0 |
6 |
unless $$dataPt =~ /\G(-?\d+)e/g |
|
127
|
6 |
20 |
unless defined $k |
|
129
|
0 |
20 |
if (ref $k) |
|
130
|
0 |
0 |
if ref $k ne "SCALAR" |
|
134
|
0 |
20 |
unless defined $v |
|
141
|
8 |
15 |
unless defined $v |
|
150
|
36 |
0 |
if ($more <= 0) { } |
|
|
0 |
0 |
elsif ($more > 10000000) { } |
|
155
|
0 |
0 |
if $raf->Seek($more, 1) |
|
160
|
0 |
0 |
if ($n == $more) |
|
166
|
36 |
0 |
if (defined $value) { } |
|
|
0 |
0 |
elsif (not defined $val) { } |
|
168
|
0 |
36 |
if (length $value > 256) { } |
|
|
1 |
35 |
elsif ($value =~ /[^\t\x20-\x7e]/) { } |
|
171
|
0 |
1 |
if (&Image::ExifTool::IsUTF8(\$value) >= 0) { } |
|
202
|
0 |
27 |
defined $baseID ? : |
|
203
|
0 |
27 |
unless ($tagTablePtr->{$id}) |
|
207
|
0 |
0 |
if length $name < 2 or not $name =~ /^[A-Z]/ |
|
208
|
0 |
0 |
if defined $baseName |
|
212
|
0 |
27 |
unless my $tagInfo = $et->GetTagInfo($tagTablePtr, $id) |
|
213
|
8 |
19 |
if (ref $val eq "ARRAY") |
|
214
|
4 |
4 |
if ($tagInfo->{'JoinPath'}) { } |
|
215
|
0 |
5 |
ref $_ ? : |
|
218
|
1 |
3 |
if ref $more[0] eq "ARRAY" |
|
220
|
3 |
0 |
unless $i |
|
223
|
9 |
17 |
if defined $i |
|
224
|
17 |
9 |
if (@index) |
|
226
|
17 |
0 |
unless ($tagTablePtr->{$id}) |
|
236
|
0 |
4 |
if $name =~ /\d$/ |
|
241
|
0 |
17 |
unless $tagInfo = $et->GetTagInfo($tagTablePtr, $id) |
|
243
|
5 |
21 |
if (ref $val eq 'HASH') { } |
|
244
|
0 |
0 |
if ($et->Options("Struct") and $tagInfo and $tagInfo->{'Name'} eq "Info") |
|
251
|
5 |
0 |
if ($tagInfo->{'SubDirectory'}) { } |
|
266
|
3 |
17 |
if defined $i |
|
284
|
0 |
1 |
if $err |
|
285
|
1 |
0 |
if (ref $dict eq "HASH" and $dict->{'announce'} || $dict->{'created by'}) |
|
288
|
1 |
0 |
if &ExtractTags($et, $dict, $tagTablePtr) |