Branch Coverage

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


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