| line |
true |
false |
branch |
|
40
|
0 |
0 |
unless open my $fh, "<", $file
|
|
48
|
0 |
0 |
unless close $fh
|
|
55
|
0 |
0 |
if $line =~ /^\s+$/
|
|
56
|
0 |
0 |
if $line =~ /^#/
|
|
61
|
0 |
0 |
if ($self->{'in_zone'} and $line =~ /^[ \t]/)
|
|
67
|
0 |
0 |
if (substr($line, 0, 4) eq $_)
|
|
86
|
0 |
0 |
if $rule{'letter'} eq "-"
|
|
89
|
0 |
0 |
if $rule{'type'} eq "-"
|
|
102
|
0 |
0 |
$name ? :
|
|
103
|
0 |
0 |
if defined $_
|
|
106
|
0 |
0 |
unless ($name)
|
|
113
|
0 |
0 |
if ($obs{'rules'} =~ /\d\d?:\d\d/) { }
|
|
117
|
0 |
0 |
if $obs{'rules'} eq "-"
|
|
120
|
0 |
0 |
unless defined $obs{'until'}
|
|
148
|
0 |
0 |
unless exists $self->{'zones'}{$name}
|
|
174
|
0 |
0 |
unless defined $name
|
|
177
|
0 |
0 |
unless exists $self->{'rules'}{$name}
|
|
185
|
0 |
482 |
if $day =~ /^\d+$/
|
|
187
|
14 |
468 |
if ($day =~ /^last(\w\w\w)$/) { }
|
|
|
468 |
0 |
elsif ($day =~ /^(\w\w\w)([><])=(\d\d?)$/) { }
|
|
219
|
0 |
468 |
$2 eq '<' ? :
|
|
246
|
0 |
482 |
unless defined $minute
|
|
247
|
482 |
0 |
unless defined $second
|
|
250
|
0 |
482 |
if ($hour >= 24)
|
|
256
|
14 |
468 |
if ($is_utc) { }
|
|
278
|
14 |
454 |
if $is_std
|
|
286
|
0 |
482 |
if $add_day
|