| 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->{'data_files'}) |
|
714
|
0 |
0 |
$mf ? : |
|
715
|
0 |
0 |
if ($mfc =~ /
\ncheck_links:[\ \t]+checklinks\.awk[\ \t]+
\$\(TDATA\)[\ \t]*\n
\t[\ \t]*\$\(AWK\)\ -f\ checklinks\.awk\ \$\(TDATA\)\n
\t[\ \t]*\$\(AWK\)\ -f\ checklinks\.awk\ tzdata\.zi\n\n
/x) { } |
|
|
0 |
0 |
elsif ($mfc =~ m[
\nzonenames:[\ \t]+\$\(TDATA\)[\ \t]*\n
\t[\ \t]*\@\$\(AWK\)\ '
/\^Zone/\ \{\ print\ \$\$2\ \}
\ /\^Link/\ \{\ print\ \$\$3\ \}
'\ \$\(TDATA\)[\ \t]*\n\n
]x) { } |
|
750
|
0 |
0 |
unless ($self->{'zic_built'}) |
|
807
|
0 |
0 |
unless my $dh = 'IO::Dir'->new($dir) |
|
809
|
0 |
0 |
if $ent =~ /\A\.\.?\z/ |
|
811
|
0 |
0 |
if (-d $entpath) { } |
|
821
|
0 |
0 |
if rand $options |
|
823
|
0 |
0 |
unless /\Aleaps\z/ |
|
825
|
0 |
0 |
$options->{'leaps'} ? : |
|
827
|
0 |
0 |
unless ($$self{"zoneinfo_built_$type"}) |
|
836
|
0 |
0 |
unless (exists $expect_names{$lname}) |
|
841
|
0 |
0 |
if (keys %expect_names) |