| line |
true |
false |
branch |
|
36
|
0 |
0 |
if ($_[2] - $_[3] >= 0) { } |
|
|
0 |
0 |
elsif ($_[2] + 1 == $_[3]) { } |
|
43
|
0 |
0 |
if $_[0] eq 'r' and $_[2] + $_[3] == $med * 2 |
|
51
|
0 |
0 |
if ($_[2] - $_[3] >= 0) { } |
|
|
0 |
0 |
elsif ($_[3] - $_[2] > 1) { } |
|
55
|
0 |
0 |
if $_[0] eq 'r' and $_[2] + $_[3] == $med * 2 |
|
64
|
0 |
0 |
if ref $either |
|
66
|
0 |
0 |
unless defined $file |
|
69
|
0 |
0 |
unless -f $file and -s $file |
|
85
|
0 |
0 |
if $$self{'size'} == $base_blocks * 9728000 |
|
90
|
0 |
0 |
unless open my $f, '<', $file |
|
98
|
0 |
0 |
if ($readed_bytes) |
|
109
|
0 |
0 |
if $readed_bytes != 9728000 |
|
113
|
0 |
0 |
unless defined $readed_bytes and $$self{'size'} == $#{$$self{'p'};} * 9728000 + $readed_bytes |
|
117
|
0 |
0 |
if (@{$$self{'p'};} == 1) { } |
|
127
|
0 |
0 |
if (ref $either) { } |
|
137
|
0 |
1 |
if ref $either |
|
139
|
0 |
1 |
unless defined $link |
|
140
|
0 |
1 |
unless $link =~ m[^ed2k://\|file\|([\d\D]+?)\|(\d+)\|([\da-f]{32})\|]i |
|
148
|
0 |
1 |
unless $$self{'size'} |
|
151
|
0 |
1 |
if ($link =~ /\|p=([\d\D]*?)\|/) |
|
154
|
0 |
0 |
unless $t =~ /^([\dA-F]{32}(:[\dA-F]{32})*)$/ |
|
158
|
0 |
0 |
if $$self{'size'} >= $t * 9728000 |
|
159
|
0 |
0 |
unless $t == @t |
|
161
|
0 |
0 |
if (@t == 1) { } |
|
162
|
0 |
0 |
unless $$self{'hash'} eq $t[0] |
|
168
|
0 |
0 |
unless $$self{'hash'} eq uc md4_hex($t) |
|
173
|
1 |
0 |
if $$self{'size'} < 9728000 and not exists $$self{'p'} |
|
176
|
0 |
1 |
if ($link =~ /\|h=([\d\D]*?)\|/) |
|
179
|
0 |
0 |
unless $$self{'aich'} =~ /^[A-Z2-7]{32}$/ |
|
183
|
0 |
1 |
if (ref $either) { } |
|
192
|
0 |
1 |
unless ref(my $instance = shift()) |
|
197
|
0 |
1 |
unless ref(my $instance = shift()) |
|
202
|
0 |
1 |
unless ref(my $instance = shift()) |
|
207
|
0 |
1 |
unless ref(my $instance = shift()) |
|
212
|
0 |
0 |
unless ref(my $instance = shift()) |
|
217
|
0 |
0 |
unless ref(my $instance = shift()) |
|
218
|
0 |
0 |
if exists $$instance{'p'} |
|
222
|
0 |
0 |
unless ref(my $instance = shift()) |
|
224
|
0 |
0 |
$instance->has_complete_hashset ? : |
|
229
|
0 |
0 |
unless ref(my $instance = shift()) |
|
234
|
0 |
0 |
unless ref(my $instance = shift()) |
|
239
|
0 |
0 |
unless ref(my $instance = shift()) |
|
241
|
0 |
0 |
unless $instance->ok |
|
243
|
0 |
0 |
if (defined $optional) |
|
245
|
0 |
0 |
if $optional =~ /p/ and $instance->filesize >= 9728000 and $instance->has_complete_hashset |
|
248
|
0 |
0 |
if $optional =~ /h/ and $instance->has_aich |
|
254
|
0 |
0 |
unless ref(my $instance = shift()) |
|
259
|
0 |
0 |
unless ref(my $instance = shift()) |
|
265
|
0 |
0 |
unless @_ == 2 |
|
269
|
0 |
0 |
unless $res |
|
270
|
0 |
0 |
if $one->has_complete_hashset and $two->has_complete_hashset |
|
272
|
0 |
0 |
unless $res |
|
273
|
0 |
0 |
if $one->has_aich and $two->has_aich |
|
275
|
0 |
0 |
unless $res |
|
278
|
0 |
0 |
if ($one->is_reliable and $two->is_reliable) { } |
|
|
0 |
0 |
elsif ($one->is_reliable) { } |
|
|
0 |
0 |
elsif ($two->is_reliable) { } |
|
279
|
0 |
0 |
if ($one->has_complete_hashset and not $two->has_complete_hashset) { } |
|
|
0 |
0 |
elsif (not $one->has_complete_hashset and $two->has_complete_hashset) { } |
|
284
|
0 |
0 |
if ($one->has_aich and not $two->has_aich) { } |
|
|
0 |
0 |
elsif (not $one->has_aich and $two->has_aich) { } |
|
291
|
0 |
0 |
if ($one->has_complete_hashset) |
|
295
|
0 |
0 |
if ($one->has_aich) |
|
299
|
0 |
0 |
if $two->has_complete_hashset |
|
300
|
0 |
0 |
if $two->has_aich |
|
301
|
0 |
0 |
if $t >= 0 |
|
304
|
0 |
0 |
if ($two->has_complete_hashset) |
|
308
|
0 |
0 |
if ($two->has_aich) |
|
312
|
0 |
0 |
if $one->has_complete_hashset |
|
313
|
0 |
0 |
if $one->has_aich |
|
314
|
0 |
0 |
if $t >= 0 |