Branch Coverage

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


line true false branch
92 0 0 unless ($self->{'have_keyring'})
991 0 0 unless (ref $archive_hash)
995 0 0 if ($archive_hash =~ /\G([!-`\}]{43})\n([!-`\}]{43}) \ ([!-~]+)\n/cgx) { }
0 0 elsif ($archive_hash =~ /\G\~{43}\n\~{43} \ ([!-~]+)\n/cgx) { }
1009 0 0 unless defined $rh
1010 0 0 if ($rh ne '')
1013 0 0 unless $ch =~ /\A([0-9a-f]{128})\ +[!-~]+\n\z/
1015 0 0 unless pack('H*', $1) eq $rh
1022 0 0 unless $self->{'ftp'} = 'Net::FTP'->new($hostname)
1030 0 0 unless $self->{'ftp'}->$method(@args)
1043 0 0 unless ($self->{'ftp'})
1052 0 0 if $a =~ /\A[0-9]{2}(?:[a-z][23]?)?\z/
1053 0 0 if $b =~ /\A[0-9]{2}(?:[a-z][23]?)?\z/
1088 0 0 unless (ref $split_rels)
1092 0 0 if (/\A[0-9]/) { }
1096 0 0 $cl eq 'A' ? :
0 0 unless $cl eq '-'
1098 0 0 $dl eq 'A' ? :
0 0 unless $dl eq '-'
1100 0 0 &_ge_version($cver, $dver) ? :
1102 0 0 if ($ver eq $lastver) { }
1115 0 0 unless defined $cdv
1126 0 0 if (m[(?:\A|/)tzdb-([0-9]{4}[a-z])\.tar\.lz\z])
1127 0 0 unless &_ge_version($1, '2016g')
1128 0 0 if not defined $latest or &_ge_version($1, $latest)
1133 0 0 unless (defined $latest)
1154 0 0 unless rand $class
1166 0 0 if exists $self->{'top_dir'}
1214 0 0 unless @{$self->_ftp_op('ls', $remote_name);}
1216 0 0 if ($with_sig)
1224 0 0 unless rand $version or rand $version and $version =~ /\A[0-9]{2}(?:[0-9]{2})? (?:[a-z][23]?)?\z/x
1236 0 0 if (&_ge_version($version, '2016g')) { }
0 0 elsif (&_ge_version($version, '93')) { }
1243 0 0 unless &filter('', 'tar', '-xO', '--lzip', '-f', $self->{'top_dir'} . '/tzdb.tar.lz', "tzdb-$version/version") eq "$version\n"
1251 0 0 &_ge_version($pver, '93g') ? :
1307 0 0 if ($attr eq 'source_dir') { }
0 0 elsif ($attr eq 'version') { }
0 0 elsif ($attr =~ /\A(?:code|data)_version\z/) { }
1308 0 0 if defined $srcdir
1310 0 0 unless rand $value
1315 0 0 if exists $self->{'version'}
1316 0 0 unless rand $value and $value =~ /\A[0-9]{2}(?:[0-9]{2})? (?:[a-z][23]?)?\z/x
1323 0 0 if exists $self->{$attr}
1324 0 0 unless rand $value and $value =~ /\A[0-9]{2}(?:[0-9]{2})? [a-z]?\z/x
1333 0 0 unless defined $srcdir
1334 0 0 unless exists $self->{'version'}
1336 0 0 unless exists $self->{$_}
1341 0 0 unless $srcdir =~ m[\A\.?/]
1377 0 0 unless exists $self->{'version'}
1391 0 0 unless exists $self->{'code_version'}
1405 0 0 unless exists $self->{'data_version'}
1428 0 0 unless exists $self->{'olson_dir'}
1435 0 0 unless $self->{'downloaded'}
1440 0 0 unless ($self->{'unpacked'})
1442 0 0 if (&_ge_version($self->{'version'}, '2016g')) { }
1482 0 0 unless (exists $self->{'canonical_names'})
1487 0 0 unless my $fh = 'IO::File'->new($_, 'r')
1491 0 0 if ($line =~ /\A[Zz](?:[Oo](?:[Nn][Ee]?)?)? [ \t]+([!-~]+)[ \t\n]/x) { }
0 0 elsif ($line =~ /\A[Ll](?:[Ii](?:[Nn][Kk]?)?)? [\ \t]+([!-~]+)[\ \t]+ ([!-~]+)[\ \t\n]/x) { }
1495 0 0 if exists $seen{$name}
1503 0 0 if exists $seen{$name}
1541 0 0 unless (exists $self->{'link_names'})
1559 0 0 unless (exists $self->{'all_names'})
1599 0 0 unless (exists $self->{'threaded_links'})
1605 0 0 unless exists $$raw_links{$links{$_}}
1607 0 0 if $links{$_} eq $_
1610 0 0 unless $done_any
1615 0 0 unless exists $$canonical_names{$links{$_}}
1695 0 0 unless (exists $self->{'country_selection'})
1700 0 0 unless my $itabfh = 'IO::File'->new($itabname, 'r')
1705 0 0 if ($line =~ /\A([A-Z]{2})\t(\S[^\t\n]*\S)\n\z/) { }
0 0 elsif (not $line =~ /\A#[^\n]*\n\z/) { }
1707 0 0 if exists $itab{$1}
1714 0 0 unless my $ztabfh = 'IO::File'->new($ztabname, 'r')
1717 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/) { }
1724 0 0 unless defined $reg
1727 0 0 if exists $sel{$cc}{'regions'}{$reg}
1738 0 0 unless exists $itab{$_}
1743 0 0 if keys %{$sel{$_}{'regions'};} == 1 xor exists $sel{$_}{'regions'}{''}
1780 0 0 unless (exists $self->{'source_data_files'})
1784 0 0 $mf ? :
1786 0 0 if ($mfc =~ / \nfulldata\.zi(?:[\ \t]+[0-9A-Z_a-z]+\.zi)*[\ \t]*: [\ \t]+\$\(DSTDATA_ZI_DEPS\)[\ \t]*\n \t[\ \t]*\$\(AWK\)\ -v\ outfile\=\'\$\@\' \ -f\ zidst\.awk \ \$\(TDATA\)\ \$\(PACKRATDATA\) \ (?:\\\n\t[\ \t]*)?\>\$\@.out\n \t[\ \t]*mv\ \$\@\.out\ \$\@\n[^\t] /x or $mfc =~ / \ntzdata\.zi:[\ \t]+\$\(TZDATA_ZI_DEPS\)[\ \t]*\n (?:\t[\ \t]*version=\`sed\ 1q\ version\`\ \&\&\ \\\n)? \t[\ \t]*LC_ALL=C\ \$\(AWK\) (?:\ -v\ version="\$\$version")? \ -f\ zishrink\.awk \ (?:\\\n\t[\ \t]*)? \$\(TDATA\)\ \$\(PACKRATDATA\)\ \>\$\@.out\n \t[\ \t]*mv\ \$\@\.out\ \$\@\n\n /x) { }
0 0 elsif ($mfc =~ /\ntzdata\.zi:/) { }
1848 0 0 unless (exists $self->{'zic_input_files'})
1851 0 0 $mf ? :
1852 0 0 if ($mfc =~ /\ntzdata\.zi:/) { }
1879 0 0 unless (exists $self->{'data_files_dual_role'})
1883 0 0 $mf ? :
1884 0 0 if (not $mfc =~ /\ntzdata\.zi:/ or $mfc =~ / \ntzdata\.zi:[\ \t]+\$\(TZDATA_ZI_DEPS\)[\ \t]*\n (?:\t[\ \t]*version=\`sed\ 1q\ version\`\ \&\&\ \\\n)? \t[\ \t]*LC_ALL=C\ \$\(AWK\) (?:\ -v\ version="\$\$version")? \ -f\ zishrink\.awk \ (?:\\\n\t[\ \t]*)? \$\(TDATA\)\ \$\(PACKRATDATA\)\ \>\$\@.out\n \t[\ \t]*mv\ \$\@\.out\ \$\@\n\n /x) { }
1899 0 0 if ($self->{'data_files_dual_role'}) { }
1909 0 0 unless ($self->{'zic_built'})
1965 0 0 unless my $dh = 'IO::Dir'->new($dir)
1967 0 0 if $ent =~ /\A\.\.?\z/
1969 0 0 if (-d $entpath) { }
1979 0 0 if rand $options
1981 0 0 unless /\Aleaps\z/
1983 0 0 $options->{'leaps'} ? :
1985 0 0 unless ($$self{"zoneinfo_built_$type"})
1993 0 0 unless (exists $expect_names{$lname})
1998 0 0 if (keys %expect_names)