| line |
true |
false |
branch |
|
53
|
0 |
0 |
unless defined $file |
|
54
|
0 |
0 |
unless -e $file |
|
69
|
0 |
0 |
unless $handle->open($file) |
|
99
|
0 |
0 |
unless @continents |
|
118
|
0 |
0 |
unless @countries |
|
122
|
0 |
0 |
if exists $wanted{$m->country} |
|
146
|
0 |
0 |
unless ref $continents |
|
197
|
0 |
0 |
defined $args{'verbose'} ? : |
|
199
|
0 |
0 |
unless ref $continents |
|
203
|
0 |
0 |
unless ('Net::Ping'->VERSION gt $min_version) |
|
211
|
0 |
0 |
unless (@$continents) |
|
212
|
0 |
0 |
if $verbose |
|
224
|
0 |
0 |
if $count >= $how_many |
|
228
|
0 |
0 |
if $verbose |
|
233
|
0 |
0 |
unless @$timings |
|
235
|
0 |
0 |
if $how_many > @$timings |
|
237
|
0 |
0 |
wantarray ? : |
|
250
|
0 |
0 |
unless ref $continents |
|
252
|
0 |
0 |
if ($n <= 0) |
|
253
|
0 |
0 |
wantarray ? : |
|
258
|
0 |
0 |
if ($n eq '*' or $n > @long_list) |
|
259
|
0 |
0 |
wantarray ? : |
|
291
|
0 |
0 |
unless defined $seen |
|
292
|
0 |
0 |
unless ref $mirror_list eq ref [] |
|
294
|
0 |
0 |
unless ref $seen eq ref {} |
|
297
|
0 |
0 |
if defined $callback and ref $callback ne ref sub {
} |
|
302
|
0 |
0 |
unless eval {
do {
$m->http
}
} |
|
304
|
0 |
0 |
if ($self->_try_a_ping($seen, $m)) { } |
|
306
|
0 |
0 |
unless defined $ping |
|
308
|
0 |
0 |
if $callback |
|
311
|
0 |
0 |
if defined $$seen{$m->hostname}->rtt |
|
317
|
0 |
0 |
if (defined $a->rtt and defined $b->rtt) { } |
|
|
0 |
0 |
elsif (defined $a->rtt and not defined $b->rtt) { } |
|
|
0 |
0 |
elsif (not defined $a->rtt and defined $b->rtt) { } |
|
|
0 |
0 |
elsif (not defined $a->rtt || defined $b->rtt) { } |
|
332
|
0 |
0 |
wantarray ? : |
|
371
|
0 |
0 |
unless defined $args{'verbose'} |
|
372
|
0 |
0 |
unless defined $args{'seen'} |
|
373
|
0 |
0 |
unless ref $args{'seen'} eq ref {} |
|
375
|
0 |
0 |
unless defined $args{'ping_cache_time'} |
|
378
|
0 |
0 |
if defined $args{'callback'} and ref $args{'callback'} ne ref sub {
} |
|
382
|
0 |
0 |
if $args{'verbose'} |
|
385
|
0 |
0 |
unless @mirrors |
|
386
|
0 |
0 |
@mirrors < $args{'n'} ? : |
|
392
|
0 |
0 |
if ($self->_try_a_ping($args{'seen'}, $m, $args{'ping_cache_limit'})) |
|
394
|
0 |
0 |
unless defined $args{'seen'}{$m->hostname}->rtt |
|
396
|
0 |
0 |
if $args{'verbose'} |
|
405
|
0 |
0 |
if defined $median |
|
410
|
0 |
0 |
if ($args{'verbose'}) |
|
417
|
0 |
0 |
wantarray ? : |
|
424
|
0 |
0 |
unless not exists $$seen{$mirror->hostname} |
|
439
|
0 |
0 |
if (@sorted == 0) { } |
|
|
0 |
0 |
elsif (@sorted == 1) { } |
|
|
0 |
0 |
elsif (@sorted % 2) { } |
|
448
|
0 |
0 |
if $verbose |
|
465
|
0 |
0 |
unless defined $string |
|
470
|
0 |
0 |
if $string =~ /^\s*$/ |
|
471
|
0 |
0 |
if $string =~ /^\s*#/ |
|
474
|
0 |
0 |
if ($string =~ /^\s/) { } |
|
476
|
0 |
0 |
unless ($string =~ /^\s+(\w+)\s+=\s+\"(.*)\"$/) |
|
481
|
0 |
0 |
if ($prop eq 'dst_location') { } |
|
|
0 |
0 |
elsif ($prop eq 'dst_http') { } |
|
|
0 |
0 |
elsif ($prop eq 'dst_ftp') { } |
|
|
0 |
0 |
elsif ($prop eq 'dst_rsync') { } |
|
483
|
0 |
0 |
if @location = split(/\s*,\s*/, $value, 0) |
|
487
|
0 |
0 |
if $continent and $country |
|
506
|
0 |
0 |
unless ($string =~ /^([\w\.-]+)\:\s*$/) |
|
511
|
0 |
0 |
if ($current) |
|
516
|
0 |
0 |
if ($mirror) |
|
537
|
0 |
0 |
unless (shift())->{'http'} |
|
538
|
0 |
0 |
unless (shift())->{'ftp'} |
|
539
|
0 |
0 |
unless (shift())->{'rsync'} |
|
551
|
0 |
0 |
$^O eq 'VMS' ? : |
|
553
|
0 |
0 |
$proto eq 'http' ? : |
|
554
|
0 |
0 |
unless $port |
|
556
|
0 |
0 |
if ($ping->can('port_number')) { } |
|
563
|
0 |
0 |
if $ping->can('hires') |
|
566
|
0 |
0 |
$alive ? : |