| line |
true |
false |
branch |
|
88
|
0 |
0 |
unless $dir
|
|
90
|
0 |
0 |
unless (-d "$dir/tzdata")
|
|
138
|
0 |
0 |
if (exists $self->{'ruleinfo'}{$info} and exists $self->{'ruleinfo'}{$info}{$rule} and exists $self->{'ruleinfo'}{$info}{$rule}{$year})
|
|
141
|
0 |
0 |
if (ref $self->{'ruleinfo'}{$info}{$rule}{$year}) { }
|
|
148
|
0 |
0 |
if ($info eq 'rules') { }
|
|
|
0 |
0 |
elsif ($info eq 'stdlett' or $info eq 'savlett') { }
|
|
|
0 |
0 |
elsif ($info eq 'lastoff') { }
|
|
|
0 |
0 |
elsif ($info eq 'rdates') { }
|
|
153
|
0 |
0 |
if $y0 > $year or $y1 < $year
|
|
154
|
0 |
0 |
if $ytype eq "-" or $year == 9999 or $ytype eq "even" and $year =~ /[02468]$/ or $ytype eq "odd" and $year =~ /[13579]$/
|
|
175
|
0 |
0 |
if $info eq "stdlett" and $offset eq "00:00:00" or $info eq "savlett" and $offset ne "00:00:00"
|
|
181
|
0 |
0 |
if (not %lett) { }
|
|
192
|
0 |
0 |
unless @rules
|
|
257
|
0 |
0 |
unless (exists $self->{'zonelines'}{$zone})
|
|
278
|
0 |
0 |
if (exists $self->{'zoneinfo'}{$info} and exists $self->{'zoneinfo'}{$info}{$zone} and exists $self->{'zoneinfo'}{$info}{$zone}{$y})
|
|
281
|
0 |
0 |
if (ref $self->{'zoneinfo'}{$info}{$zone}{$y}) { }
|
|
288
|
0 |
0 |
if ($info eq 'zonelines') { }
|
|
|
0 |
0 |
elsif ($info eq 'rules') { }
|
|
299
|
0 |
0 |
if $yr < $y
|
|
300
|
0 |
0 |
if $yr == $y and $flag == $TZ_DOM and $mon == 1 and $num == 1 and $time eq "00:00:00"
|
|
303
|
0 |
0 |
if $yr > $y
|
|
341
|
0 |
0 |
if $Verbose
|
|
355
|
0 |
0 |
if $Verbose
|
|
356
|
0 |
0 |
unless ($in->open("$dir/tzdata/$file"))
|
|
376
|
0 |
0 |
if (not $in[0]) { }
|
|
|
0 |
0 |
elsif ($in[0] =~ /^Zone/) { }
|
|
|
0 |
0 |
elsif ($in[0] =~ /^Link/) { }
|
|
|
0 |
0 |
elsif ($in[0] =~ /^Rule/) { }
|
|
405
|
0 |
0 |
if ($#tmp != 2 or lc $tmp[0] ne "link")
|
|
413
|
0 |
0 |
if ($self->_tzd_Alias($alias))
|
|
427
|
0 |
0 |
if ($#tmp != 9 or lc $tmp[0] ne "rule")
|
|
447
|
0 |
0 |
if ($#tmp < 4 or lc $tmp[0] ne "zone")
|
|
461
|
0 |
0 |
if ($self->_tzd_Zone($zone))
|
|
470
|
0 |
0 |
unless @$lines
|
|
473
|
0 |
0 |
if $line =~ /^(zone|link|rule)/i
|
|
477
|
0 |
0 |
unless $line
|
|
481
|
0 |
0 |
if ($#tmp < 2)
|
|
494
|
0 |
0 |
if $Verbose
|
|
507
|
0 |
0 |
if (defined $zone) { }
|
|
|
0 |
0 |
elsif (exists $self->{'alias'}{$alias}) { }
|
|
548
|
0 |
0 |
if $Verbose
|
|
558
|
0 |
0 |
if ($self->_tzd_Zone($zone)) { }
|
|
|
0 |
0 |
elsif (exists $tmp{$zone}) { }
|
|
|
0 |
0 |
elsif ($self->_tzd_Alias($zone)) { }
|
|
587
|
0 |
0 |
if (defined $listref) { }
|
|
|
0 |
0 |
elsif (exists $self->{'rule'}{$rule}) { }
|
|
588
|
0 |
0 |
unless (exists $self->{'rule'}{$rule})
|
|
613
|
0 |
0 |
if $Verbose
|
|
631
|
0 |
0 |
unless ($Error)
|
|
636
|
0 |
0 |
if $Error
|
|
705
|
0 |
0 |
if ($dom =~ /^(\d\d?)$/) { }
|
|
|
0 |
0 |
elsif ($dom =~ /^last(.+)$/) { }
|
|
|
0 |
0 |
elsif ($dom =~ /^(.+)>=(\d\d?)$/) { }
|
|
|
0 |
0 |
elsif ($dom =~ /^(.+)<=(\d\d?)$/) { }
|
|
721
|
0 |
0 |
if ($dow)
|
|
722
|
0 |
0 |
if (exists $days{lc $dow}) { }
|
|
729
|
0 |
0 |
if $num > 31
|
|
740
|
0 |
0 |
if (exists $months{lc $mmm}) { }
|
|
754
|
0 |
0 |
if ($type)
|
|
756
|
0 |
0 |
if ($type and $time =~ s/(w|u|s)$//i)
|
|
761
|
0 |
0 |
if ($sign) { }
|
|
762
|
0 |
0 |
if ($time =~ s/^-//) { }
|
|
772
|
0 |
0 |
unless $time =~ /^(\d\d?)(?::(\d\d))?(?::(\d\d))?$/
|
|
774
|
0 |
0 |
unless $hr
|
|
775
|
0 |
0 |
unless $mn
|
|
776
|
0 |
0 |
unless $se
|
|
777
|
0 |
0 |
if length $hr < 2
|
|
778
|
0 |
0 |
if length $mn < 2
|
|
779
|
0 |
0 |
if length $se < 2
|
|
781
|
0 |
0 |
if ($type) { }
|
|
792
|
0 |
0 |
if ($from =~ /^\d\d\d\d$/) { }
|
|
|
0 |
0 |
elsif ($from eq 'minimum' or $from eq 'min') { }
|
|
806
|
0 |
0 |
if ($to =~ /^\d\d\d\d$/) { }
|
|
|
0 |
0 |
elsif ($to eq 'maximum' or $to eq 'max') { }
|
|
|
0 |
0 |
elsif (lc $to eq 'only') { }
|
|
821
|
0 |
0 |
if lc $type eq "-" or lc $type eq "even" or lc $type eq "odd"
|
|
833
|
0 |
0 |
unless ($i)
|
|
848
|
0 |
0 |
if ($err)
|
|
860
|
0 |
0 |
unless ($ret)
|
|
870
|
0 |
0 |
if $save eq "-"
|
|
872
|
0 |
0 |
unless ($ret)
|
|
882
|
0 |
0 |
if $letters eq "-"
|
|
896
|
0 |
0 |
if (defined $listref) { }
|
|
|
0 |
0 |
elsif (exists $self->{'zone'}{$zone}) { }
|
|
897
|
0 |
0 |
unless (exists $self->{'zone'}{$zone})
|
|
924
|
0 |
0 |
if $Verbose
|
|
939
|
0 |
0 |
unless ($Error)
|
|
945
|
0 |
0 |
if $Error
|
|
1033
|
0 |
0 |
unless ($ret)
|
|
1043
|
0 |
0 |
if $rule eq "-"
|
|
1045
|
0 |
0 |
if $ret
|
|
1046
|
0 |
0 |
unless ($self->_tzd_Rule($rule))
|
|
1064
|
0 |
0 |
if (not $y) { }
|
|
1073
|
0 |
0 |
unless ($y =~ /^\d\d\d\d$/)
|
|
1079
|
0 |
0 |
if (not $m) { }
|
|
1089
|
0 |
0 |
unless ($tmp)
|
|
1096
|
0 |
0 |
if (not $d) { }
|
|
|
0 |
0 |
elsif ($d =~ /^last(.*)/) { }
|
|
|
0 |
0 |
elsif ($d =~ />=/) { }
|
|
|
0 |
0 |
elsif ($d =~ /<=/) { }
|
|
1113
|
0 |
0 |
if ($dow > $ddow) { }
|
|
|
0 |
0 |
elsif ($dow < $ddow) { }
|
|
1126
|
0 |
0 |
if ($dow < $ddow) { }
|
|
|
0 |
0 |
elsif ($dow > $ddow) { }
|
|
1138
|
0 |
0 |
unless ($t)
|
|
1147
|
0 |
0 |
if ($err)
|
|
1153
|
0 |
0 |
if length $m < 2
|
|
1156
|
0 |
0 |
if ($y == 9999) { }
|
|
1160
|
0 |
0 |
unless ($tmp)
|
|
1173
|
0 |
0 |
if ($type eq "w")
|
|
1205
|
0 |
0 |
unless ($start)
|
|
1214
|
0 |
0 |
unless ($end)
|
|
1223
|
0 |
0 |
if ($ruletype == $TZ_RULE) { }
|
|
|
0 |
0 |
elsif ($ruletype == $TZ_STANDARD) { }
|
|
1240
|
0 |
0 |
if $date lt $d or $date gt $end
|
|
1255
|
0 |
0 |
unless ($dstend)
|
|
1257
|
0 |
0 |
if ($start ge $yrbeg) { }
|
|
1282
|
0 |
0 |
if ($fixend)
|
|
1283
|
0 |
0 |
if ($timetype eq "u")
|
|
1302
|
0 |
0 |
$ruletype == $TZ_RULE ? :
|
|
1320
|
0 |
0 |
if ($flag == $TZ_DOM) { }
|
|
|
0 |
0 |
elsif ($flag == $TZ_LAST) { }
|
|
|
0 |
0 |
elsif ($flag == $TZ_GE) { }
|
|
|
0 |
0 |
elsif ($flag == $TZ_LE) { }
|