| line |
true |
false |
branch |
|
225
|
1 |
0 |
unless (exists $$self{'storage'}) |
|
229
|
0 |
1 |
if (ref $$self{'list'} ne 'ARRAY') |
|
233
|
0 |
1 |
unless bless $self, $class |
|
288
|
0 |
0 |
if defined $list |
|
299
|
0 |
0 |
if ($$info{'time'} + $$info{'wait'} > time and $force == 0) { } |
|
309
|
0 |
0 |
if (scalar @lists == 0) |
|
319
|
0 |
0 |
if ($mac) |
|
322
|
0 |
0 |
if ($client_key eq '' or $wrapped_key eq '') |
|
332
|
0 |
0 |
if $mac |
|
343
|
0 |
0 |
if ($a_range ne '') |
|
346
|
0 |
0 |
if ($s_range ne '') |
|
347
|
0 |
0 |
if $a_range ne '' |
|
352
|
0 |
0 |
if $mac |
|
361
|
0 |
0 |
if $$self{'debug'} |
|
362
|
0 |
0 |
if $$self{'debug'} |
|
365
|
0 |
0 |
unless ($res->is_success) |
|
386
|
0 |
0 |
if ($line =~ /n:\s*(\d+)\s*$/) { } |
|
|
0 |
0 |
elsif ($line =~ /i:\s*(\S+)\s*$/) { } |
|
|
0 |
0 |
elsif ($line =~ /u:\s*(\S+),(\S+)\s*$/) { } |
|
|
0 |
0 |
elsif ($line =~ /u:\s*(\S+)\s*$/) { } |
|
|
0 |
0 |
elsif ($line =~ /ad:(\S+)$/) { } |
|
|
0 |
0 |
elsif ($line =~ /sd:(\S+)$/) { } |
|
|
0 |
0 |
elsif ($line =~ /m:(\S+)$/ and $mac) { } |
|
|
0 |
0 |
elsif ($line =~ /e:pleaserekey/ and $mac) { } |
|
|
0 |
0 |
elsif ($line =~ /r:pleasereset/) { } |
|
435
|
0 |
0 |
unless ($self->validate_data_mac('data', $data, 'key', $client_key, 'digest', $hmac)) |
|
458
|
0 |
0 |
if scalar @redirections > 0 |
|
469
|
0 |
0 |
unless ($res->is_success) |
|
479
|
0 |
0 |
if $$self{'debug'} |
|
480
|
0 |
0 |
if $$self{'debug'} |
|
483
|
0 |
0 |
if ($mac and not $self->validate_data_mac('data', $data, 'key', $client_key, 'digest', $hmac)) |
|
491
|
0 |
0 |
if ($result != 1) |
|
578
|
0 |
0 |
if $list ne '' |
|
599
|
0 |
0 |
if $match ne '' |
|
642
|
0 |
0 |
if (defined $message) { } |
|
679
|
0 |
0 |
if (scalar @add_chunks == 0) |
|
696
|
0 |
0 |
if ($hash eq $full_hash and defined first(sub {
$$add_chunk{'list'} eq $_;
}
, @$lists)) |
|
705
|
0 |
0 |
if $found ne '' |
|
707
|
0 |
0 |
if $found ne '' |
|
710
|
0 |
0 |
if $found ne '' |
|
720
|
0 |
0 |
unless defined $hash |
|
724
|
0 |
0 |
if (defined $hash and defined $list) |
|
759
|
0 |
0 |
if (scalar @add_chunks == 0) |
|
767
|
0 |
0 |
if (scalar @full_hashes_prefix == 0) |
|
769
|
0 |
0 |
if scalar @full_hashes == 0 |
|
777
|
0 |
0 |
if ($add_chunks[$i]{'prefix'} ne '') { } |
|
780
|
0 |
0 |
if ($add_chunks[$i]{'prefix'} eq $hash_prefix) |
|
789
|
0 |
0 |
if ($found == 0) { } |
|
801
|
0 |
0 |
if (scalar @add_chunks == 0) |
|
815
|
0 |
0 |
if ($$add_chunk{'chunknum'} != $$sub_chunk{'addchunknum'} or $$add_chunk{'list'} ne $$sub_chunk{'list'}) |
|
820
|
0 |
0 |
if ($$sub_chunk{'prefix'} eq $$add_chunk{'prefix'}) { } |
|
829
|
0 |
0 |
if (scalar @add_chunks == 0) |
|
865
|
0 |
0 |
if $list ne '' |
|
887
|
0 |
0 |
if scalar @matches > 0 |
|
905
|
0 |
0 |
if ($$keys{'client_key'} eq '' or $$keys{'wrapped_key'} eq '') |
|
934
|
0 |
0 |
unless ($res->is_success) |
|
942
|
0 |
0 |
if ($data =~ s/^clientkey:(\d+)://im) |
|
950
|
0 |
0 |
if ($data =~ s/^wrappedkey:(\d+)://im) { } |
|
1003
|
0 |
0 |
unless exists $$info{'errors'} |
|
1007
|
0 |
0 |
$errors > 5 ? : |
|
|
0 |
0 |
$errors == 5 ? : |
|
|
0 |
0 |
$errors == 4 ? : |
|
|
0 |
0 |
$errors == 3 ? : |
|
|
0 |
0 |
$errors == 2 ? : |
|
|
0 |
0 |
$errors == 1 ? : |
|
1035
|
0 |
0 |
if ($$chunk{'host'} eq $suffix and $$chunk{'prefix'} eq $prefix || $$chunk{'prefix'} eq '' and $$chunk{'add_chunknum'} == $chuknum) |
|
1054
|
0 |
0 |
unless (exists $$self{'ua'}) |
|
1086
|
0 |
0 |
if ($data =~ /^(\d+):(\d+):(\d+)\n/sig) { } |
|
1099
|
0 |
0 |
if ($type eq 's:') { } |
|
|
0 |
0 |
elsif ($type eq 'a:') { } |
|
1150
|
0 |
0 |
if ($count == 0) { } |
|
1157
|
0 |
0 |
if ($$self{'debug'}) |
|
1173
|
0 |
0 |
if ($$self{'debug'}) |
|
1207
|
0 |
0 |
if ($count > 0) { } |
|
1214
|
0 |
0 |
if ($$self{'debug'}) |
|
1222
|
0 |
0 |
if ($$self{'debug'}) |
|
1280
|
0 |
0 |
if $$self{'debug'} > 0 |
|
1293
|
0 |
0 |
if $$self{'debug'} > 0 or $$self{'errors'} > 0 |
|
1307
|
0 |
0 |
if $$self{'perf'} > 0 |
|
1321
|
0 |
3 |
if ($domain =~ /^\d+\.\d+\.\d+\.\d+$/) |
|
1326
|
2 |
1 |
if (scalar @parts >= 3) |
|
1352
|
0 |
3 |
if ($domain =~ /^\d+\.\d+\.\d+\.\d+$/) |
|
1379
|
1 |
2 |
if ($path =~ /\?/) |
|
1444
|
3 |
36 |
if (not $uri->scheme or $uri->scheme eq '') |
|
1466
|
2 |
37 |
if $escape =~ m[^[a-z]+://[^/\?]+$] |
|
1471
|
3 |
36 |
if ((my $domain = 'URI'->new($escape)->host) =~ /^\d+$/) |
|
1515
|
0 |
39 |
if ($exception and $escape =~ m[^[a-z]+://[^/]+/(.+)]) |
|
1589
|
0 |
0 |
if (time - $$errors{'timestamp'} < $time) { } |
|
1601
|
0 |
0 |
if (defined $errors and $$errors{'errors'} > 2) { } |
|
1602
|
0 |
0 |
$$errors{'errors'} == 4 ? : |
|
|
0 |
0 |
$$errors{'errors'} == 3 ? : |
|
1622
|
0 |
0 |
if (not $res->is_success) { } |
|
1628
|
0 |
0 |
if (defined $errors and $$errors{'errors'} >= 2 || $$errors{'errors'} == 1 && time - $$errors{'timestamp'} > 300) |
|
1665
|
0 |
0 |
unless ($data =~ /^[a-z-]+:\d+:\d+\n/) |
|
1730
|
0 |
0 |
if scalar @$numbers == 0 |
|
1737
|
0 |
0 |
if ($$numbers[$i] != $$numbers[$i - 1] + 1) { } |
|
|
0 |
0 |
elsif ($new_range == 0) { } |
|
1738
|
0 |
0 |
if $i > 1 and $new_range == 1 |
|
1748
|
0 |
0 |
if $new_range == 1 |
|
1767
|
0 |
0 |
if ($data =~ /^\d+$/) { } |
|
|
0 |
0 |
elsif ($data =~ /^(\d+)-(\d+)$/) { } |