| 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) { } |