| line |
true |
false |
branch |
|
72
|
0 |
0 |
if ($_[2] - $_[3] >= 0) { } |
|
|
0 |
0 |
elsif ($_[2] + 1 == $_[3]) { } |
|
79
|
0 |
0 |
if $_[0] eq 'r' and $_[2] + $_[3] == $med * 2 |
|
87
|
0 |
0 |
if ($_[2] - $_[3] >= 0) { } |
|
|
0 |
0 |
elsif ($_[3] - $_[2] > 1) { } |
|
91
|
0 |
0 |
if $_[0] eq 'r' and $_[2] + $_[3] == $med * 2 |
|
129
|
0 |
0 |
if ref $either |
|
131
|
0 |
0 |
unless defined $file |
|
135
|
0 |
0 |
unless -f $filename_to_access and -s _ |
|
153
|
0 |
0 |
if $self->{'size'} == $base_blocks * 9728000 |
|
158
|
0 |
0 |
unless open my $f, '<', $filename_to_access |
|
171
|
0 |
0 |
if ($readed_bytes) |
|
186
|
0 |
0 |
if $readed_bytes != 9728000 |
|
190
|
0 |
0 |
unless defined $readed_bytes and $self->{'size'} == $#{$$self{'p'};} * 9728000 + $readed_bytes |
|
194
|
0 |
0 |
if (@{$self->{'p'};} == 1) { } |
|
208
|
0 |
0 |
if (ref $either) { } |
|
238
|
0 |
1 |
if ref $either |
|
240
|
0 |
1 |
unless defined $link |
|
241
|
0 |
1 |
unless $link =~ m[^ed2k://\|file\|([\d\D]+?)\|(\d+)\|([\da-f]{32})\|]i |
|
250
|
0 |
1 |
unless $self->{'size'} |
|
253
|
0 |
1 |
if ($link =~ /\|p=([\d\D]*?)\|/) |
|
256
|
0 |
0 |
unless $t =~ /^([\dA-F]{32}(:[\dA-F]{32})*)$/ |
|
260
|
0 |
0 |
if $self->{'size'} >= $t * 9728000 |
|
261
|
0 |
0 |
unless $t == @t |
|
263
|
0 |
0 |
if (@t == 1) { } |
|
264
|
0 |
0 |
unless $self->{'hash'} eq $t[0] |
|
270
|
0 |
0 |
unless $self->{'hash'} eq uc Digest::MD4::md4_hex($t) |
|
275
|
1 |
0 |
if $self->{'size'} < 9728000 and not exists $self->{'p'} |
|
278
|
0 |
1 |
if ($link =~ /\|h=([\d\D]*?)\|/) |
|
281
|
0 |
0 |
unless $self->{'aich'} =~ /^[A-Z2-7]{32}$/ |
|
285
|
0 |
1 |
if (ref $either) { } |
|
302
|
0 |
1 |
unless ref(my $instance = shift()) |
|
315
|
0 |
1 |
unless ref(my $instance = shift()) |
|
328
|
0 |
1 |
unless ref(my $instance = shift()) |
|
339
|
0 |
1 |
unless ref(my $instance = shift()) |
|
350
|
0 |
0 |
unless ref(my $instance = shift()) |
|
361
|
0 |
0 |
unless ref(my $instance = shift()) |
|
362
|
0 |
0 |
if exists $instance->{'p'} |
|
372
|
0 |
0 |
unless ref(my $instance = shift()) |
|
374
|
0 |
0 |
$instance->has_complete_hashset ? : |
|
385
|
0 |
0 |
unless ref(my $instance = shift()) |
|
396
|
0 |
0 |
unless ref(my $instance = shift()) |
|
415
|
0 |
0 |
unless ref(my $instance = shift()) |
|
417
|
0 |
0 |
unless $instance->ok |
|
425
|
0 |
0 |
if (defined $optional) |
|
427
|
0 |
0 |
if index($optional, 'p') != -1 and $instance->filesize >= 9728000 and $instance->has_complete_hashset |
|
434
|
0 |
0 |
if index($optional, 'h') != -1 and $instance->has_aich |
|
450
|
0 |
0 |
unless ref(my $instance = shift()) |
|
466
|
0 |
0 |
unless ref(my $instance = shift()) |
|
482
|
0 |
0 |
unless @_ == 2 |
|
486
|
0 |
0 |
unless $res |
|
487
|
0 |
0 |
if $one->has_complete_hashset and $two->has_complete_hashset |
|
489
|
0 |
0 |
unless $res |
|
490
|
0 |
0 |
if $one->has_aich and $two->has_aich |
|
492
|
0 |
0 |
unless $res |
|
495
|
0 |
0 |
if ($one->is_reliable and $two->is_reliable) { } |
|
|
0 |
0 |
elsif ($one->is_reliable) { } |
|
|
0 |
0 |
elsif ($two->is_reliable) { } |
|
496
|
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) { } |
|
501
|
0 |
0 |
if ($one->has_aich and not $two->has_aich) { } |
|
|
0 |
0 |
elsif (not $one->has_aich and $two->has_aich) { } |
|
508
|
0 |
0 |
if ($one->has_complete_hashset) |
|
512
|
0 |
0 |
if ($one->has_aich) |
|
516
|
0 |
0 |
if $two->has_complete_hashset |
|
517
|
0 |
0 |
if $two->has_aich |
|
518
|
0 |
0 |
if $t >= 0 |
|
521
|
0 |
0 |
if ($two->has_complete_hashset) |
|
525
|
0 |
0 |
if ($two->has_aich) |
|
529
|
0 |
0 |
if $one->has_complete_hashset |
|
530
|
0 |
0 |
if $one->has_aich |
|
531
|
0 |
0 |
if $t >= 0 |