Branch Coverage

blib/lib/CPAN/Mirrors.pm
Criterion Covered Total %
branch 0 156 0.0


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
312 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'}
374 0 0 unless ref $args{'seen'} eq ref {}
376 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
399 0 0 if $args{'verbose'}
405 0 0 if defined $median
410 0 0 if ($args{'verbose'})
417 0 0 wantarray ? :
429 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 ? :