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 ? : |