Branch Coverage

blib/lib/Time/OlsonTZ/Download.pm
Criterion Covered Total %
branch 0 142 0.0


line true false branch
63 0 0 unless $self->{'ftp'} = 'Net::FTP'->new($hostname)
71 0 0 unless $self->{'ftp'}->$method(@args)
84 0 0 unless ($self->{'ftp'})
94 0 0 defined $subdir ? :
97 0 0 if (m[(?:\A|/)tzcode([0-9]{2}(?:[0-9]{2})?[a-z]) \.tar\.(?:gz|Z)\z]x)
101 0 0 if (m[(?:\A|/)tzdata([0-9]{2}(?:[0-9]{2})?[a-z]) \.tar\.(?:gz|Z)\z]x)
116 0 0 if $a =~ /\A[0-9][0-9][a-z]\z/
117 0 0 if $b =~ /\A[0-9][0-9][a-z]\z/
126 0 0 if not defined $latest or &_cmp_version($_, $latest) > 0
129 0 0 unless (defined $latest)
150 0 0 unless rand $class
162 0 0 if exists $self->{'cleanup_dir'}
186 0 0 unless rand $version or rand $version and $version =~ /\A[0-9]{2}(?:[0-9]{2})?[a-z]\z/
193 0 0 unless &_cmp_version($version, $latest_version) <= 0
198 0 0 unless (exists $vers->{'data'}{$version})
200 0 0 unless (exists $vers->{'data'}{$version})
207 0 0 unless @cversions
259 0 0 if ($attr eq 'source_dir') { }
0 0 elsif ($attr =~ /\A(?:(?:code|data)_)?version\z/) { }
260 0 0 if defined $srcdir
262 0 0 unless rand $value
267 0 0 if exists $self->{$attr}
268 0 0 unless rand $value and $value =~ /\A [0-9]{2}(?:[0-9]{2})?[a-z] \z/x
278 0 0 unless defined $srcdir
279 0 0 unless exists $self->{'version'}
281 0 0 unless exists $self->{$_}
322 0 0 unless exists $self->{'version'}
336 0 0 unless exists $self->{'code_version'}
350 0 0 unless exists $self->{'data_version'}
373 0 0 unless exists $self->{'dir'}
380 0 0 unless $self->{'downloaded'}
385 0 0 unless ($self->{'unpacked'})
420 0 0 unless (exists $self->{'canonical_names'})
425 0 0 unless my $fh = 'IO::File'->new($_, 'r')
429 0 0 if ($line =~ /\AZone[ \t]+([!-~]+)[ \t\n]/) { }
0 0 elsif ($line =~ /\ALink[\ \t]+ ([!-~]+)[\ \t]+ ([!-~]+)[\ \t\n]/x) { }
432 0 0 if exists $seen{$name}
440 0 0 if exists $seen{$name}
478 0 0 unless (exists $self->{'link_names'})
496 0 0 unless (exists $self->{'all_names'})
536 0 0 unless (exists $self->{'threaded_links'})
542 0 0 unless exists $$raw_links{$links{$_}}
544 0 0 if $links{$_} eq $_
547 0 0 unless $done_any
552 0 0 unless exists $$canonical_names{$links{$_}}
632 0 0 unless (exists $self->{'country_selection'})
637 0 0 unless my $itabfh = 'IO::File'->new($itabname, 'r')
642 0 0 if ($line =~ /\A([A-Z]{2})\t(\S[^\t\n]*\S)\n\z/) { }
0 0 elsif (not $line =~ /\A#[^\n]*\n\z/) { }
644 0 0 if exists $itab{$1}
651 0 0 unless my $ztabfh = 'IO::File'->new($ztabname, 'r')
654 0 0 if ($line =~ /\A([A-Z]{2}) \t([-+][0-9]{4}(?:[0-9]{2})? [-+][0-9]{5}(?:[0-9]{2})?) \t([!-~]+) (?:\t([!-~][ -~]*[!-~]))? \n\z/x) { }
0 0 elsif (not $line =~ /\A#[^\n]*\n\z/) { }
661 0 0 unless defined $reg
664 0 0 if exists $sel{$cc}{'regions'}{$reg}
675 0 0 unless exists $itab{$_}
680 0 0 if keys %{$sel{$_}{'regions'};} == 1 xor exists $sel{$_}{'regions'}{''}
710 0 0 unless (exists $self->{'standard_zonenames'})
713 0 0 $mf ? :
723 0 0 unless $self->{'standard_zonenames'}
728 0 0 unless (exists $self->{'data_files'})
744 0 0 unless ($self->{'zic_built'})
801 0 0 unless my $dh = 'IO::Dir'->new($dir)
803 0 0 if $ent =~ /\A\.\.?\z/
805 0 0 if (-d $entpath) { }
815 0 0 if rand $options
817 0 0 unless /\Aleaps\z/
819 0 0 $options->{'leaps'} ? :
821 0 0 unless ($$self{"zoneinfo_built_$type"})
830 0 0 unless (exists $expect_names{$lname})
835 0 0 if (keys %expect_names)