| line |
true |
false |
branch |
|
54
|
0 |
0 |
unless defined $file |
|
55
|
0 |
0 |
unless -e $file |
|
70
|
0 |
0 |
unless $handle->open($file) |
|
86
|
0 |
0 |
unless $self->{'geography'} |
|
100
|
0 |
0 |
unless @continents |
|
103
|
0 |
0 |
unless $self->{'geography'}{$c} |
|
119
|
0 |
0 |
unless @countries |
|
123
|
0 |
0 |
if exists $wanted{$m->country} |
|
147
|
0 |
0 |
unless ref $continents |
|
204
|
0 |
0 |
defined $args{'verbose'} ? : |
|
206
|
0 |
0 |
unless ref $continents |
|
207
|
0 |
0 |
unless defined $args{'external_ping'} |
|
212
|
0 |
0 |
unless ("CPAN::Version"->vgt("Net::Ping"->VERSION, $min_version)) |
|
220
|
0 |
0 |
unless (@$continents) |
|
221
|
0 |
0 |
if $verbose |
|
234
|
0 |
0 |
if $count >= $how_many |
|
238
|
0 |
0 |
unless @$continents |
|
239
|
0 |
0 |
if $verbose |
|
249
|
0 |
0 |
unless @$timings |
|
251
|
0 |
0 |
if $how_many > @$timings |
|
253
|
0 |
0 |
wantarray ? : |
|
266
|
0 |
0 |
unless ref $continents |
|
268
|
0 |
0 |
if ($n <= 0) |
|
269
|
0 |
0 |
wantarray ? : |
|
274
|
0 |
0 |
if ($n eq "*" or $n > @long_list) |
|
275
|
0 |
0 |
wantarray ? : |
|
307
|
0 |
0 |
unless defined $seen |
|
308
|
0 |
0 |
unless ref $mirror_list eq ref [] |
|
310
|
0 |
0 |
unless ref $seen eq ref {} |
|
313
|
0 |
0 |
if defined $callback and ref $callback ne ref sub {
} |
|
318
|
0 |
0 |
unless eval {
do {
$m->http
}
} |
|
320
|
0 |
0 |
if ($self->_try_a_ping($seen, $m)) { } |
|
322
|
0 |
0 |
unless defined $ping |
|
325
|
0 |
0 |
if $callback |
|
329
|
0 |
0 |
if defined $$seen{$m->hostname}->rtt |
|
334
|
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) { } |
|
349
|
0 |
0 |
wantarray ? : |
|
388
|
0 |
0 |
unless defined $args{'verbose'} |
|
389
|
0 |
0 |
unless defined $args{'seen'} |
|
391
|
0 |
0 |
unless ref $args{'seen'} eq ref {} |
|
393
|
0 |
0 |
unless defined $args{'ping_cache_limit'} |
|
395
|
0 |
0 |
if defined $args{'callback'} and ref $args{'callback'} ne ref sub {
} |
|
401
|
0 |
0 |
if $args{'verbose'} |
|
403
|
0 |
0 |
unless @mirrors |
|
404
|
0 |
0 |
@mirrors < $args{'n'} ? : |
|
410
|
0 |
0 |
if ($self->_try_a_ping($args{"seen"}, $m, $args{'ping_cache_limit'})) |
|
419
|
0 |
0 |
unless defined $args{'seen'}{$m->hostname}->rtt |
|
424
|
0 |
0 |
if $args{'verbose'} |
|
430
|
0 |
0 |
if defined $median |
|
435
|
0 |
0 |
if ($args{'verbose'}) |
|
437
|
0 |
0 |
if (@best_cont) { } |
|
446
|
0 |
0 |
wantarray ? : |
|
459
|
0 |
0 |
unless not exists $$seen{$mirror->hostname} && defined $$seen{$mirror->hostname}->rtt && defined $ping_cache_limit |
|
470
|
0 |
0 |
if (@sorted == 0) { } |
|
|
0 |
0 |
elsif (@sorted == 1) { } |
|
|
0 |
0 |
elsif (@sorted % 2) { } |
|
479
|
0 |
0 |
if ($verbose) |
|
480
|
0 |
0 |
if ($median) { } |
|
502
|
0 |
0 |
unless defined $string |
|
507
|
0 |
0 |
if $string =~ /^\s*$/ |
|
508
|
0 |
0 |
if $string =~ /^\s*#/ |
|
511
|
0 |
0 |
if ($string =~ /^\s/) { } |
|
513
|
0 |
0 |
unless ($string =~ /^\s+(\w+)\s+=\s+\"(.*)\"$/) |
|
518
|
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') { } |
|
520
|
0 |
0 |
if @location = split(/\s*,\s*/, $value, 0) |
|
524
|
0 |
0 |
if $continent and $country |
|
543
|
0 |
0 |
unless ($string =~ /^([\w\.-]+)\:\s*$/) |
|
548
|
0 |
0 |
if ($current) |
|
553
|
0 |
0 |
if ($mirror) |
|
574
|
0 |
0 |
unless +(shift())->{'http'} |
|
575
|
0 |
0 |
unless +(shift())->{'ftp'} |
|
576
|
0 |
0 |
unless +(shift())->{'rsync'} |
|
589
|
0 |
0 |
if ($external_ping) |
|
590
|
0 |
0 |
unless eval {
do {
require Net::Ping::External
}
} |
|
593
|
0 |
0 |
$^O eq 'VMS' ? : |
|
|
0 |
0 |
$external_ping ? : |
|
598
|
0 |
0 |
$proto eq 'http' ? : |
|
599
|
0 |
0 |
unless $port |
|
601
|
0 |
0 |
if ($ping->can('port_number')) { } |
|
608
|
0 |
0 |
if $ping->can("hires") |
|
611
|
0 |
0 |
if ($verbose and not $alive) |
|
615
|
0 |
0 |
$alive ? : |