| line |
true |
false |
branch |
|
100
|
509 |
0 |
if ($os eq 'Unix') { }
|
|
|
0 |
0 |
elsif ($os eq 'Windows') { }
|
|
|
0 |
0 |
elsif ($os eq 'VMS') { }
|
|
167
|
57 |
34 |
if exists $self->{'data'}{'Offsets'}{$offset}
|
|
180
|
0 |
1635 |
if exists $self->{'data'}{'Zones'}{$zone}{'Loaded'}
|
|
203
|
1 |
48040 |
if (exists $self->{'data'}{'MyAlias'}{$zone}) { }
|
|
|
47990 |
50 |
elsif (exists $self->{'data'}{'Alias'}{$zone}) { }
|
|
226
|
1 |
1 |
if ($alias eq "reset")
|
|
231
|
0 |
1 |
if (lc $zone eq "reset")
|
|
239
|
0 |
1 |
unless $zone
|
|
249
|
2 |
4 |
if ($abbrev eq "reset")
|
|
254
|
1 |
3 |
if ($#zone == 0 and lc $zone[0] eq "reset")
|
|
260
|
0 |
3 |
unless (exists $self->{'data'}{'Abbrev'}{$abbrev})
|
|
268
|
0 |
5 |
unless $zone
|
|
269
|
0 |
5 |
unless exists $zone{$zone}
|
|
270
|
0 |
5 |
if exists $z{$zone}
|
|
284
|
10 |
12 |
if (lc $offset eq "reset")
|
|
288
|
0 |
12 |
if ($#args == 0 and lc $args[0] eq "reset")
|
|
296
|
0 |
12 |
if (ref $offset) { }
|
|
301
|
1 |
11 |
unless $offset
|
|
302
|
1 |
10 |
unless exists $self->{'data'}{'Offmod'}{$offset}
|
|
309
|
10 |
0 |
if ($args[0] =~ /^std|dst|stdonly|dstonly$/i)
|
|
311
|
3 |
7 |
if ($tmp eq 'stdonly') { }
|
|
|
2 |
5 |
elsif ($tmp eq 'dstonly') { }
|
|
319
|
2 |
8 |
if ($#isdst == 0 and not exists $self->{'data'}{'Offsets'}{$offset}{$isdst[0]})
|
|
328
|
0 |
16 |
unless exists $self->{'data'}{'Offsets'}{$offset}{$isdst}
|
|
335
|
2 |
13 |
if (not exists $self->{'data'}{'ZoneNames'}{$lcz}) { }
|
|
|
1 |
12 |
elsif (not exists $tmp{'0'}{$lcz} || exists $tmp{'1'}{$lcz}) { }
|
|
|
2 |
17 |
elsif ($#isdst == 0 and not exists $tmp{$isdst[0]}{$lcz}) { }
|
|
352
|
6 |
4 |
if exists $tmp{$isdst}{$z}
|
|
368
|
0 |
0 |
if ($reset)
|
|
379
|
0 |
0 |
if (${^TAINT})
|
|
405
|
0 |
512 |
$isdst ? :
|
|
408
|
0 |
512 |
$ENV{'DATE_MANIP_DEBUG'} ? :
|
|
411
|
512 |
0 |
if defined $self->{'data'}{'path'}
|
|
418
|
0 |
2000 |
if $debug
|
|
420
|
512 |
1488 |
if ($method eq 'main') { }
|
|
|
512 |
976 |
elsif ($method eq 'env') { }
|
|
|
976 |
0 |
elsif ($method eq 'file') { }
|
|
|
0 |
0 |
elsif ($method eq 'tzdata') { }
|
|
|
0 |
0 |
elsif ($method eq 'command') { }
|
|
|
0 |
0 |
elsif ($method eq 'cmdfield') { }
|
|
|
0 |
0 |
elsif ($method eq 'gmtoff') { }
|
|
|
0 |
0 |
elsif ($method eq 'registry') { }
|
|
422
|
0 |
512 |
unless (@methods)
|
|
423
|
0 |
0 |
if $debug
|
|
428
|
0 |
512 |
if $debug
|
|
432
|
0 |
512 |
if (defined $val) { }
|
|
434
|
0 |
0 |
if $debug
|
|
436
|
0 |
512 |
if $debug
|
|
440
|
0 |
512 |
if (@methods < 2)
|
|
441
|
0 |
0 |
if $debug
|
|
446
|
0 |
512 |
if $debug
|
|
448
|
0 |
512 |
if ($type ne "zone" and $type ne "offset")
|
|
450
|
0 |
0 |
if $debug
|
|
456
|
0 |
512 |
if $debug
|
|
457
|
24 |
488 |
if (exists $ENV{$var}) { }
|
|
458
|
24 |
0 |
if ($type eq 'zone') { }
|
|
460
|
0 |
24 |
if $debug
|
|
463
|
0 |
0 |
if $debug
|
|
466
|
0 |
0 |
if $debug
|
|
470
|
0 |
488 |
if $debug
|
|
474
|
0 |
976 |
unless (@methods)
|
|
475
|
0 |
0 |
if $debug
|
|
480
|
0 |
976 |
if $debug
|
|
481
|
488 |
488 |
unless (-f $file)
|
|
482
|
0 |
488 |
if $debug
|
|
487
|
0 |
488 |
unless $in->open($file)
|
|
494
|
0 |
488 |
if $line =~ /^\s*\043/ or $line =~ /^\s*$/
|
|
496
|
488 |
0 |
if ($firstline)
|
|
531
|
0 |
488 |
if ($line =~ /^\s*(?:TZ|TIMEZONE|ZONE)\s*=\s*(.*)\s*$/)
|
|
534
|
0 |
0 |
unless $val
|
|
536
|
0 |
0 |
if ($val =~ /^(["'])(.*?)\1/) { }
|
|
|
0 |
0 |
elsif ($val =~ /\s/) { }
|
|
538
|
0 |
0 |
unless $z
|
|
557
|
488 |
0 |
if @z
|
|
559
|
0 |
488 |
if ($debug)
|
|
560
|
0 |
0 |
if (@zone) { }
|
|
568
|
0 |
0 |
if (@methods < 2)
|
|
569
|
0 |
0 |
if $debug
|
|
575
|
0 |
0 |
if $debug
|
|
578
|
0 |
0 |
if (-f $file and -d $dir)
|
|
581
|
0 |
0 |
if (defined $z) { }
|
|
|
0 |
0 |
elsif ($debug) { }
|
|
583
|
0 |
0 |
if $debug
|
|
589
|
0 |
0 |
unless (@methods)
|
|
590
|
0 |
0 |
if $debug
|
|
595
|
0 |
0 |
if $debug
|
|
597
|
0 |
0 |
if $out
|
|
599
|
0 |
0 |
if ($debug)
|
|
600
|
0 |
0 |
if ($out) { }
|
|
608
|
0 |
0 |
if ($#methods < 1)
|
|
609
|
0 |
0 |
if $debug
|
|
615
|
0 |
0 |
if $debug
|
|
619
|
0 |
0 |
if ($out)
|
|
623
|
0 |
0 |
if defined $out[$n]
|
|
627
|
0 |
0 |
if ($debug)
|
|
628
|
0 |
0 |
if ($val) { }
|
|
636
|
0 |
0 |
if $debug
|
|
639
|
0 |
0 |
if ($mdayUT > $mday + 1) { }
|
|
|
0 |
0 |
elsif ($mdayUT < $mday - 1) { }
|
|
653
|
0 |
0 |
if $debug
|
|
656
|
0 |
0 |
if $debug
|
|
658
|
0 |
0 |
if ($z) { }
|
|
660
|
0 |
0 |
if $debug
|
|
662
|
0 |
0 |
if $debug
|
|
666
|
0 |
0 |
if $debug
|
|
679
|
512 |
0 |
if $currzone
|
|
682
|
0 |
0 |
if (exists $self->{'data'}{'Abbrev'}{$zone})
|
|
690
|
0 |
0 |
if $currzone
|
|
694
|
0 |
512 |
unless ($currzone)
|
|
717
|
0 |
0 |
unless -d $zoneinfo and -f $localtime
|
|
720
|
0 |
0 |
if (-l $localtime)
|
|
734
|
0 |
0 |
if eval {
|
|
746
|
0 |
0 |
if ref $@
|
|
752
|
0 |
0 |
if defined($zone = _zoneinfo_file_name_to_zone($File::Find::name, $zoneinfo)) and -f $_ and $want_size == -s _ and $want_content eq _zoneinfo_file_slurp($File::Find::name)
|
|
766
|
0 |
0 |
if exists $Date::Manip::Zones::ZoneNames{lc $zone} or exists $Date::Manip::Zones::Alias{lc $zone}
|
|
772
|
0 |
0 |
unless open my $fh, "<", $file
|
|
784
|
0 |
0 |
unless my $lmachine = "Win32::TieRegistry"->new("LMachine", {"Access", Win32::TieRegistry::KEY_READ(), "Delimiter", "/"})
|
|
796
|
0 |
0 |
if (defined $tzkn and $tzkn)
|
|
802
|
0 |
0 |
if ($i != -1)
|
|
806
|
0 |
0 |
if $z
|
|
815
|
0 |
0 |
if $z
|
|
823
|
0 |
0 |
unless (defined $atz and $atz)
|
|
827
|
0 |
0 |
unless defined $atz and $atz
|
|
832
|
0 |
0 |
if $znam eq $stdnam
|
|
846
|
0 |
0 |
unless open IN, "$cmd |"
|
|
861
|
1 |
61 |
unless (@args)
|
|
873
|
34 |
72 |
if (ref $arg eq 'ARRAY') { }
|
|
|
0 |
72 |
elsif (ref $arg) { }
|
|
874
|
34 |
0 |
if ($#$arg == 5) { }
|
|
|
0 |
0 |
elsif ($#$arg == 2) { }
|
|
876
|
0 |
34 |
if @$date
|
|
881
|
0 |
0 |
if $offset
|
|
883
|
0 |
0 |
unless $offset
|
|
895
|
11 |
61 |
if ($arg =~ /^(std|dst|stdonly|dstonly)$/) { }
|
|
|
15 |
46 |
elsif ($tmp = $self->_zone($arg)) { }
|
|
|
13 |
33 |
elsif (exists $self->{'data'}{'MyAbbrev'}{$arg} or exists $self->{'data'}{'Abbrev'}{$arg}) { }
|
|
|
0 |
33 |
elsif (exists $self->{'data'}{'Abbrev'}{$arg}) { }
|
|
|
30 |
3 |
elsif ($tmp = $dmb->split('offset', $arg)) { }
|
|
|
0 |
3 |
elsif ($tmp = $dmb->split('date', $arg)) { }
|
|
896
|
0 |
11 |
if $dstflag
|
|
900
|
0 |
15 |
if $zone
|
|
905
|
0 |
13 |
if $abbrev
|
|
908
|
0 |
0 |
if $abbrev
|
|
912
|
0 |
30 |
if $offset
|
|
916
|
0 |
0 |
if $date
|
|
948
|
3 |
68 |
unless ($zone or $abbrev or $offset)
|
|
961
|
70 |
12 |
if $offset and @$date and not $dstflag
|
|
964
|
4 |
557 |
if ($dstflag eq 'stdonly') { }
|
|
|
4 |
553 |
elsif ($dstflag eq 'dstonly') { }
|
|
|
71 |
482 |
elsif ($dstflag eq 'dst') { }
|
|
977
|
372 |
189 |
if ($zone and not $abbrev)
|
|
978
|
372 |
0 |
if (exists $self->{'data'}{'Alias'}{$zone}) { }
|
|
|
0 |
0 |
elsif (exists $self->{'data'}{'MyAbbrev'}{$zone} or exists $self->{'data'}{'Abbrev'}{$zone}) { }
|
|
989
|
372 |
189 |
if ($zone)
|
|
991
|
372 |
0 |
exists $self->{'data'}{'Alias'}{$zone} ? :
|
|
997
|
118 |
443 |
if ($abbrev)
|
|
999
|
8 |
110 |
if (exists $self->{'data'}{'MyAbbrev'}{$abbrev}) { }
|
|
|
110 |
0 |
elsif (exists $self->{'data'}{'Abbrev'}{$abbrev}) { }
|
|
1008
|
155 |
81 |
if (@tmp)
|
|
1009
|
37 |
118 |
if (@z) { }
|
|
1017
|
0 |
118 |
if (@zone) { }
|
|
1022
|
0 |
118 |
unless @zone
|
|
1027
|
82 |
479 |
if ($offset)
|
|
1028
|
1 |
81 |
unless exists $self->{'data'}{'Offmod'}{$offset}
|
|
1037
|
28 |
127 |
if ($abbrev) { }
|
|
1040
|
125 |
2 |
if $tmp
|
|
1043
|
134 |
21 |
if (@tmp)
|
|
1044
|
55 |
79 |
if (@z) { }
|
|
1052
|
14 |
67 |
if (@zone) { }
|
|
1057
|
2 |
79 |
unless @zone
|
|
1062
|
533 |
25 |
if (@$date)
|
|
1072
|
0 |
533 |
if $dstflag eq "stdonly"
|
|
1073
|
0 |
533 |
if $dstflag eq "dstonly"
|
|
1077
|
851 |
3270 |
unless exists $self->{'data'}{'Zones'}{$z}{'Loaded'}
|
|
1082
|
746 |
2234 |
if $abbrev ne "" and lc $abbrev ne lc $period->[4] or $offset ne "" and $offset ne $period->[2] or $isdst ne "" and $isdst ne $period->[5] or $dmb->cmp($date, $period->[1]) == -1 or $dmb->cmp($date, $period->[7]) == 1
|
|
1093
|
9 |
524 |
unless @zone
|
|
1101
|
27 |
533 |
if (wantarray)
|
|
1109
|
9 |
524 |
unless @zone
|
|
1122
|
597 |
3019 |
unless exists $self->{'data'}{'Zones'}{$zone}{'Loaded'}
|
|
1128
|
321982 |
1845 |
if lc $abbrev ne lc $abb or $isdst != $dst
|
|
1147
|
125 |
673 |
unless exists $self->{'data'}{'Zones'}{$zone}{'Loaded'}
|
|
1153
|
6942 |
185 |
if lc $abbrev ne lc $abb or $offset ne $off or $isdst != $dst
|
|
1173
|
182 |
39 |
if exists $list2{$ele}
|
|
1186
|
477 |
1303 |
if exists $list1{$ele}
|
|
1201
|
0 |
7 |
unless ($z)
|
|
1206
|
0 |
7 |
unless exists $self->{'data'}{'Zones'}{$zone}{'Loaded'}
|
|
1225
|
3143 |
31193 |
unless (exists $self->{'data'}{'Zones'}{$zone}{'AllDates'}{$year})
|
|
1234
|
5 |
3138 |
if ($year > $self->{'data'}{'LastYear'} and exists $self->{'data'}{'Zones'}{$zone}{'LastRule'}{'zone'}) { }
|
|
1242
|
112831 |
2219 |
if ($y < $year)
|
|
1246
|
1893 |
326 |
if $year == $y
|
|
1250
|
3 |
3140 |
unless $ym1
|
|
1260
|
3140 |
3 |
if ($ym1)
|
|
1262
|
3140 |
0 |
if @tmp
|
|
1269
|
1898 |
1245 |
if ($ym0)
|
|
1283
|
0 |
8 |
unless ($z)
|
|
1288
|
1 |
7 |
unless exists $self->{'data'}{'Zones'}{$zone}{'Loaded'}
|
|
1290
|
7 |
1 |
unless (defined $year1)
|
|
1294
|
1 |
0 |
unless defined $year
|
|
1299
|
1 |
0 |
if ($year <= $lastyear)
|
|
1302
|
1 |
3 |
if $y > $year1 or $y > $lastyear
|
|
1303
|
0 |
3 |
if $y < $year
|
|
1308
|
0 |
1 |
if ($year1 > $lastyear)
|
|
1309
|
0 |
0 |
if $year <= $lastyear
|
|
1322
|
12 |
5036 |
unless (exists $self->{'data'}{'Zones'}{$zone}{'Dates'}{$year})
|
|
1325
|
11 |
1 |
if ($year > $self->{'data'}{'LastYear'})
|
|
1345
|
5550 |
24658 |
unless $wallclock
|
|
1346
|
29926 |
282 |
unless $isdst
|
|
1349
|
0 |
30208 |
unless ($z)
|
|
1354
|
61 |
30147 |
unless exists $self->{'data'}{'Zones'}{$zone}{'Loaded'}
|
|
1360
|
0 |
30208 |
if $year < 0 or $year > 9999
|
|
1362
|
24658 |
5550 |
if ($wallclock) { }
|
|
1368
|
0 |
24658 |
if (($dates cmp $beg) == -1) { }
|
|
|
0 |
24658 |
elsif (($dates cmp $end) == 1) { }
|
|
1378
|
24690 |
45275 |
if (($dates cmp $begLTs) != -1 and ($dates cmp $endLTs) != 1)
|
|
1383
|
8 |
24650 |
if ($#per == -1) { }
|
|
|
24610 |
40 |
elsif ($#per == 0) { }
|
|
|
40 |
0 |
elsif ($#per == 1) { }
|
|
1388
|
19 |
21 |
if ($per[0][5] == $isdst) { }
|
|
1405
|
5550 |
209 |
if (($dates cmp $begUTs) != -1 and ($dates cmp $endUTs) != 1)
|
|
1436
|
0 |
22 |
unless @mon
|
|
1470
|
11 |
22 |
if $endonly
|
|
1472
|
11 |
11 |
if (@period)
|
|
1476
|
11 |
11 |
$isdst ? :
|
|
1510
|
0 |
2860 |
if $err
|
|
1514
|
0 |
2860 |
unless ($from)
|
|
1523
|
0 |
12 |
if $err
|
|
1527
|
7 |
5 |
unless ($to)
|
|
1536
|
0 |
27 |
if $err
|
|
1540
|
0 |
27 |
unless ($from)
|
|
1549
|
0 |
0 |
if $err
|
|
1553
|
0 |
0 |
unless ($to)
|
|
1562
|
7 |
2892 |
if ($#args == -1) { }
|
|
|
176 |
2716 |
elsif ($#args == 0) { }
|
|
|
2716 |
0 |
elsif ($#args == 1) { }
|
|
1565
|
0 |
176 |
if ($args[0] eq '0' or $args[0] eq '1') { }
|
|
1584
|
5735 |
1 |
if (ref $date) { }
|
|
1591
|
5736 |
0 |
if ($from ne $to)
|
|
1593
|
0 |
5736 |
unless ($tmp)
|
|
1599
|
0 |
5736 |
unless ($tmp)
|
|
1605
|
187 |
5549 |
if ($from eq $to)
|
|
1614
|
5549 |
0 |
if ($from ne "Etc/GMT")
|
|
1616
|
2 |
5547 |
unless ($per)
|
|
1629
|
5547 |
0 |
if ($to ne "Etc/GMT")
|
|
1664
|
465 |
79 |
if defined $self->{'data'}{$re}
|
|
1669
|
0 |
79 |
if (exists $ENV{'DATE_MANIP_DEBUG_ZONES'}) { }
|
|
1691
|
0 |
79 |
if (exists $ENV{'DATE_MANIP_DEBUG_ABBREVS'}) { }
|
|
1759
|
0 |
384 |
if ($var eq 'tz') { }
|
|
|
169 |
215 |
elsif ($var eq 'setdate') { }
|
|
|
188 |
27 |
elsif ($var eq 'forcedate') { }
|
|
|
27 |
0 |
elsif ($var eq 'configfile') { }
|
|
1761
|
0 |
0 |
if $err
|
|
1767
|
0 |
169 |
if $err
|
|
1773
|
0 |
188 |
if $err
|
|
1803
|
267 |
90 |
if ($val =~ /^now$dstrx$zonrx$/io) { }
|
|
|
0 |
90 |
elsif ($val =~ /^zone$dstrx$zonrx$/io) { }
|
|
|
90 |
0 |
elsif ($val =~ /^$da1rx$dstrx$zonrx$/o or $val =~ /^$da2rx$dstrx$zonrx$/o) { }
|
|
|
0 |
0 |
elsif ($val =~ /^$da1rx$/o or $val =~ /^$da2rx$/o) { }
|
|
|
0 |
0 |
elsif (lc $val eq 'now') { }
|
|
1854
|
357 |
0 |
unless $dstflag
|
|
1860
|
267 |
90 |
if ($op eq 'nowzone') { }
|
|
|
0 |
90 |
elsif ($op eq 'zone') { }
|
|
1881
|
357 |
0 |
if ($zone) { }
|
|
1884
|
0 |
357 |
unless defined $date
|
|
1886
|
0 |
357 |
unless ($zone)
|
|
1900
|
357 |
0 |
if ($dstflag eq 'std') { }
|
|
|
0 |
0 |
elsif ($dstflag eq 'stdonly') { }
|
|
|
0 |
0 |
elsif ($dstflag eq 'dst') { }
|
|
1910
|
357 |
0 |
if ($op eq 'nowzone' or $op eq 'datezone' or $op eq 'date') { }
|
|
|
0 |
0 |
elsif ($op eq 'zone') { }
|
|
1917
|
357 |
357 |
if $per
|
|
1921
|
0 |
357 |
unless ($per)
|
|
1934
|
0 |
0 |
if ($err)
|
|
1954
|
188 |
169 |
if ($force) { }
|