| line |
true |
false |
branch |
|
465
|
0 |
191 |
unless @_ == 2 |
|
467
|
191 |
0 |
if ($year > 0) { } |
|
469
|
191 |
0 |
if ($month >= 1 and $month <= 12) { } |
|
480
|
0 |
26 |
unless @_ == 2 |
|
482
|
26 |
0 |
if ($year > 0) { } |
|
484
|
24 |
2 |
if ($month >= 1 and $month <= 12) { } |
|
495
|
0 |
4 |
unless @_ == 1 |
|
497
|
4 |
0 |
if ($year > 0) { } |
|
506
|
0 |
4 |
unless @_ == 1 |
|
508
|
4 |
0 |
if ($year > 0) { } |
|
517
|
0 |
47213 |
unless @_ == 3 |
|
524
|
0 |
315 |
unless @_ == 3 |
|
531
|
0 |
0 |
unless @_ == 3 |
|
538
|
0 |
0 |
unless @_ == 3 |
|
541
|
0 |
0 |
if ($retval == 0) |
|
547
|
0 |
24648 |
unless @_ == 3 |
|
550
|
0 |
24648 |
if ($retval == 0) |
|
556
|
0 |
870 |
unless @_ == 3 |
|
559
|
1 |
869 |
if ($retval == 0) |
|
565
|
0 |
0 |
unless @_ == 3 |
|
568
|
0 |
0 |
if (DateCalc_check_date($year, $month, $day)) { } |
|
578
|
0 |
9 |
unless @_ == 3 |
|
581
|
7 |
2 |
if (DateCalc_week_of_year(\$week, \$year, $month, $day)) { } |
|
583
|
7 |
0 |
if (wantarray) { } |
|
591
|
0 |
17 |
unless @_ == 2 |
|
594
|
15 |
2 |
if ($year > 0) { } |
|
596
|
11 |
4 |
if ($week > 0 and $week <= DateCalc_Weeks_in_Year($year)) { } |
|
598
|
11 |
0 |
if (DateCalc_monday_of_week($week, \$year, \$month, \$day)) { } |
|
611
|
0 |
1323 |
unless @_ == 4 |
|
614
|
1323 |
0 |
if ($year > 0) { } |
|
616
|
1323 |
0 |
if ($month >= 1 and $month <= 12) { } |
|
618
|
1323 |
0 |
if ($dow >= 1 and $dow <= 7) { } |
|
620
|
1323 |
0 |
if ($n >= 1 and $n <= 5) { } |
|
622
|
1252 |
71 |
if (DateCalc_nth_weekday_of_month_year(\$year, \$month, \$day, $dow, $n)) { } |
|
639
|
0 |
629 |
unless @_ == 3 |
|
642
|
629 |
0 |
if (DateCalc_standard_to_business(\$year, \$week, \$dow, $month, $day)) { } |
|
651
|
0 |
629 |
unless @_ == 3 |
|
654
|
629 |
0 |
if (DateCalc_business_to_standard(\$year, \$month, \$day, $week, $dow)) { } |
|
663
|
0 |
15 |
unless @_ == 6 |
|
666
|
12 |
3 |
if (DateCalc_check_date($year1, $month1, $day1) and DateCalc_check_date($year2, $month2, $day2)) { } |
|
677
|
0 |
32 |
unless @_ == 12 |
|
680
|
29 |
3 |
if (DateCalc_check_date($year1, $month1, $day1) and DateCalc_check_date($year2, $month2, $day2)) { } |
|
683
|
17 |
12 |
if (DateCalc_check_time($hour1, $min1, $sec1) and DateCalc_check_time($hour2, $min2, $sec2)) { } |
|
686
|
17 |
0 |
if (DateCalc_delta_dhms(\$Dd, \$Dh, \$Dm, \$Ds, $year1, $month1, $day1, $hour1, $min1, $sec1, $year2, $month2, $day2, $hour2, $min2, $sec2)) { } |
|
701
|
0 |
5 |
unless @_ == 6 |
|
703
|
5 |
0 |
if (DateCalc_delta_ymd(\$year1, \$month1, \$day1, $year2, $month2, $day2)) { } |
|
712
|
0 |
3 |
unless @_ == 12 |
|
715
|
3 |
0 |
if (DateCalc_check_date($year1, $month1, $day1) and DateCalc_check_date($year2, $month2, $day2)) { } |
|
718
|
3 |
0 |
if (DateCalc_check_time($hour1, $min1, $sec1) and DateCalc_check_time($hour2, $min2, $sec2)) { } |
|
721
|
3 |
0 |
if (DateCalc_delta_ymdhms(\$D_y, \$D_m, \$D_d, \$Dh, \$Dm, \$Ds, $year1, $month1, $day1, $hour1, $min1, $sec1, $year2, $month2, $day2, $hour2, $min2, $sec2)) { } |
|
736
|
0 |
82 |
unless @_ == 6 |
|
738
|
74 |
8 |
if (DateCalc_norm_delta_ymd(\$year1, \$month1, \$day1, $year2, $month2, $day2)) { } |
|
747
|
0 |
84 |
unless @_ == 12 |
|
750
|
82 |
2 |
if (DateCalc_check_date($year1, $month1, $day1) and DateCalc_check_date($year2, $month2, $day2)) { } |
|
753
|
80 |
2 |
if (DateCalc_check_time($hour1, $min1, $sec1) and DateCalc_check_time($hour2, $min2, $sec2)) { } |
|
756
|
80 |
0 |
if (DateCalc_norm_delta_ymdhms(\$D_y, \$D_m, \$D_d, \$Dhh, \$Dmm, \$Dss, $year1, $month1, $day1, $hour1, $min1, $sec1, $year2, $month2, $day2, $hour2, $min2, $sec2)) { } |
|
771
|
0 |
14 |
unless @_ == 4 |
|
779
|
0 |
2213 |
unless @_ == 4 |
|
781
|
2210 |
3 |
if (DateCalc_add_delta_days(\$year, \$month, \$day, $Dd)) { } |
|
790
|
0 |
56 |
unless @_ == 10 |
|
792
|
55 |
1 |
if (DateCalc_check_date($year, $month, $day)) { } |
|
794
|
52 |
3 |
if (DateCalc_check_time($hour, $min, $sec)) { } |
|
796
|
51 |
1 |
if (DateCalc_add_delta_dhms(\$year, \$month, \$day, \$hour, \$min, \$sec, $Dd, $Dh, $Dm, $Ds)) { } |
|
811
|
0 |
74 |
unless @_ == 5 |
|
813
|
74 |
0 |
if (DateCalc_add_delta_ym(\$year, \$month, \$day, $Dy, $Dm)) { } |
|
822
|
0 |
53 |
unless @_ == 6 |
|
824
|
45 |
8 |
if (DateCalc_add_delta_ymd(\$year, \$month, \$day, $Dy, $Dm, $Dd)) { } |
|
833
|
0 |
6 |
unless @_ == 12 |
|
835
|
6 |
0 |
if (DateCalc_check_date($year, $month, $day)) { } |
|
837
|
6 |
0 |
if (DateCalc_check_time($hour, $min, $sec)) { } |
|
839
|
6 |
0 |
if (DateCalc_add_delta_ymdhms(\$year, \$month, \$day, \$hour, \$min, \$sec, $D_y, $D_m, $D_d, $Dh, $Dm, $Ds)) { } |
|
855
|
0 |
96 |
unless @_ == 6 |
|
857
|
96 |
0 |
if (DateCalc_add_norm_delta_ymd(\$year, \$month, \$day, $Dy, $Dm, $Dd)) { } |
|
866
|
0 |
80 |
unless @_ == 12 |
|
868
|
80 |
0 |
if (DateCalc_check_date($year, $month, $day)) { } |
|
870
|
80 |
0 |
if (DateCalc_check_time($hour, $min, $sec)) { } |
|
872
|
80 |
0 |
if (DateCalc_add_norm_delta_ymdhms(\$year, \$month, \$day, \$hour, \$min, \$sec, $D_y, $D_m, $D_d, $Dhh, $Dmm, $Dss)) { } |
|
888
|
0 |
0 |
unless @_ == 0 or @_ == 1 |
|
890
|
0 |
0 |
if (@_ == 1) { } |
|
892
|
0 |
0 |
if (DateCalc_system_clock(\$year, \$month, \$day, \$hour, \$min, \$sec, \$doy, \$dow, \$dst, $gmt)) { } |
|
904
|
0 |
0 |
unless @_ == 0 or @_ == 1 |
|
906
|
0 |
0 |
if (@_ == 1) { } |
|
908
|
0 |
0 |
if (DateCalc_system_clock(\$year, \$month, \$day, \$hour, \$min, \$sec, \$doy, \$dow, \$dst, $gmt)) { } |
|
920
|
0 |
0 |
unless @_ == 0 or @_ == 1 |
|
922
|
0 |
0 |
if (@_ == 1) { } |
|
924
|
0 |
0 |
if (DateCalc_system_clock(\$year, \$month, \$day, \$hour, \$min, \$sec, \$doy, \$dow, \$dst, $gmt)) { } |
|
936
|
0 |
1 |
unless @_ == 0 or @_ == 1 |
|
938
|
0 |
1 |
if (@_ == 1) { } |
|
940
|
1 |
0 |
if (DateCalc_system_clock(\$year, \$month, \$day, \$hour, \$min, \$sec, \$doy, \$dow, \$dst, $gmt)) { } |
|
952
|
0 |
0 |
unless @_ == 0 or @_ == 1 |
|
954
|
0 |
0 |
if (@_ == 1) { } |
|
956
|
0 |
0 |
if (DateCalc_system_clock(\$year, \$month, \$day, \$hour, \$min, \$sec, \$doy, \$dow, \$dst, $gmt)) { } |
|
968
|
0 |
2 |
unless @_ == 0 or @_ == 1 |
|
970
|
0 |
2 |
if (@_ == 1) { } |
|
972
|
0 |
2 |
if ($seconds < 0 or $seconds > 4294967295) |
|
973
|
2 |
0 |
if (DateCalc_gmtime(\$year, \$month, \$day, \$hour, \$min, \$sec, \$doy, \$dow, \$dst, $seconds)) { } |
|
985
|
0 |
2 |
unless @_ == 0 or @_ == 1 |
|
987
|
0 |
2 |
if (@_ == 1) { } |
|
989
|
0 |
2 |
if ($seconds < 0 or $seconds > 4294967295) |
|
990
|
2 |
0 |
if (DateCalc_localtime(\$year, \$month, \$day, \$hour, \$min, \$sec, \$doy, \$dow, \$dst, $seconds)) { } |
|
1002
|
0 |
2 |
unless @_ == 6 |
|
1005
|
2 |
0 |
if (DateCalc_mktime(\$seconds, $year, $month, $day, $hour, $min, $sec, -1, -1, -1)) { } |
|
1014
|
0 |
0 |
unless @_ == 0 or @_ == 1 |
|
1016
|
0 |
0 |
if (@_ == 1) { } |
|
1018
|
0 |
0 |
if ($when < 0 or $when > 4294967295) |
|
1019
|
0 |
0 |
if (DateCalc_timezone(\$year, \$month, \$day, \$hour, \$min, \$sec, \$dst, $when)) { } |
|
1030
|
0 |
6 |
unless @_ == 6 |
|
1033
|
6 |
0 |
if (DateCalc_date2time(\$seconds, $year, $month, $day, $hour, $min, $sec)) { } |
|
1042
|
0 |
8 |
unless @_ == 0 or @_ == 1 |
|
1044
|
6 |
2 |
if (@_ == 1) { } |
|
1046
|
0 |
8 |
if ($seconds < 0 or $seconds > 4294967295) |
|
1047
|
8 |
0 |
if (DateCalc_time2date(\$year, \$month, \$day, \$hour, \$min, \$sec, $seconds)) { } |
|
1056
|
0 |
910 |
unless @_ == 1 |
|
1059
|
908 |
2 |
if ($year > 0 and DateCalc_easter_sunday(\$year, \$month, \$day)) { } |
|
1068
|
0 |
2109 |
unless @_ == 1 or @_ == 2 |
|
1076
|
0 |
1187 |
unless @_ == 1 or @_ == 2 |
|
1084
|
0 |
10 |
unless @_ == 1 |
|
1091
|
0 |
14 |
unless @_ == 1 or @_ == 2 |
|
1095
|
13 |
1 |
if (DateCalc_decode_date_eu($string, \$year, \$month, \$day, $lang)) { } |
|
1104
|
0 |
11 |
unless @_ == 1 or @_ == 2 |
|
1108
|
10 |
1 |
if (DateCalc_decode_date_us($string, \$year, \$month, \$day, $lang)) { } |
|
1117
|
0 |
0 |
unless @_ == 1 |
|
1124
|
0 |
84 |
unless @_ == 1 |
|
1131
|
0 |
6 |
unless @_ == 3 |
|
1138
|
0 |
5 |
unless @_ == 1 |
|
1141
|
3 |
2 |
if (DateCalc_uncompress($date, \$century, \$year, \$month, \$day)) { } |
|
1150
|
0 |
5 |
unless @_ == 1 |
|
1157
|
0 |
20 |
unless @_ == 1 or @_ == 2 |
|
1165
|
0 |
9 |
unless @_ == 3 or @_ == 4 |
|
1170
|
9 |
0 |
if (DateCalc_check_date($year, $month, $day)) { } |
|
1179
|
0 |
55 |
unless @_ == 3 or @_ == 4 |
|
1184
|
55 |
0 |
if (DateCalc_check_date($year, $month, $day)) { } |
|
1193
|
0 |
0 |
unless @_ == 1 |
|
1200
|
0 |
24 |
if @_ < 2 or @_ > 4 |
|
1204
|
0 |
24 |
if (@_ == 2) { } |
|
|
24 |
0 |
elsif (@_ == 1) { } |
|
1207
|
24 |
0 |
if ($year > 0) { } |
|
1209
|
24 |
0 |
if ($month >= 1 and $month <= 12) { } |
|
1220
|
0 |
134 |
unless @_ == 1 or @_ == 2 |
|
1223
|
38 |
96 |
if ($lang < 1 or $lang > $DateCalc_LANGUAGES) |
|
1224
|
119 |
15 |
if ($month >= 1 and $month <= 12) { } |
|
1233
|
0 |
48 |
unless @_ == 1 or @_ == 2 |
|
1236
|
33 |
15 |
if ($lang < 1 or $lang > $DateCalc_LANGUAGES) |
|
1237
|
38 |
10 |
if ($dow >= 1 and $dow <= 7) { } |
|
1246
|
0 |
0 |
unless @_ == 1 or @_ == 2 |
|
1249
|
0 |
0 |
if ($lang < 1 or $lang > $DateCalc_LANGUAGES) |
|
1250
|
0 |
0 |
if ($dow >= 1 and $dow <= 7) { } |
|
1252
|
0 |
0 |
if ($DateCalc_Day_of_Week_Abbreviation_[$lang][0] ne '') { } |
|
1266
|
0 |
20 |
unless @_ == 1 |
|
1268
|
19 |
1 |
if ($lang >= 1 and $lang <= $DateCalc_LANGUAGES) { } |
|
1277
|
0 |
425 |
unless @_ == 0 or @_ == 1 |
|
1280
|
6 |
419 |
if (@_ == 1) |
|
1283
|
6 |
0 |
if ($lang >= 1 and $lang <= $DateCalc_LANGUAGES) { } |
|
1294
|
0 |
169 |
unless @_ == 0 |
|
1300
|
0 |
0 |
unless @_ == 1 |
|
1308
|
0 |
253 |
unless @_ == 1 |
|
1326
|
136 |
104 |
if $_[0] =~ /^[0-9]+$/ |
|
1332
|
88 |
34 |
if $_[0] =~ /^[\x30-\x39\x41-\x5A\x61-\x7A\xC0-\xD6\xD8-\xF6\xF8-\xFF]+$/ |
|
1375
|
240 |
11 |
if ($idx >= 0 and $idx < $len) |
|
1384
|
122 |
16 |
if ($idx >= 0 and $idx < $len) |
|
1393
|
0 |
24 |
if $length > $width |
|
1454
|
31 |
3 |
if ($$_Dd != 0) |
|
1456
|
14 |
17 |
if ($$_Dd > 0) { } |
|
1458
|
7 |
7 |
if ($$_Ds < 0) |
|
1466
|
5 |
12 |
if ($$_Ds > 0) |
|
1475
|
34 |
0 |
if ($$_Ds != 0) |
|
1502
|
49360 |
33 |
if $year >= 1 and $month >= 1 and $month <= 12 and $day >= 1 and $day <= $DateCalc_Days_in_Month_[DateCalc_leap_year($year)][$month] |
|
1513
|
1004 |
7 |
if $hour >= 0 and $min >= 0 and $sec >= 0 and $hour < 24 and $min < 60 and $sec < 60 |
|
1522
|
629 |
0 |
if $year >= 1 and $week >= 1 and $week <= DateCalc_Weeks_in_Year($year) and $dow >= 1 and $dow <= 7 |
|
1533
|
0 |
0 |
if ($year >= 1 and $month >= 1 and $month <= 12 and $day >= 1 and $day <= $DateCalc_Days_in_Month_[$leap = DateCalc_leap_year($year)][$month]) |
|
1547
|
37445 |
2 |
if ($year >= 1 and $month >= 1 and $month <= 12 and $day >= 1 and $day <= $DateCalc_Days_in_Month_[$leap = DateCalc_leap_year($year)][$month]) |
|
1564
|
6534 |
1 |
if ($days > 0) |
|
1576
|
305 |
977 |
if (DateCalc_Day_of_Week($year, 1, 1) == 4 or DateCalc_Day_of_Week($year, 12, 31) == 4) { } |
|
1589
|
351 |
285 |
if ($first < 4) { } |
|
1596
|
636 |
2 |
if (DateCalc_check_date($$_year, $month, $day)) |
|
1599
|
37 |
599 |
if ($$_week == 0) { } |
|
|
31 |
568 |
elsif ($$_week > DateCalc_Weeks_in_Year($$_year)) { } |
|
1616
|
6 |
5 |
if $first < 4 |
|
1626
|
0 |
1323 |
if $$_year < 1 or $mm < 1 or $mm > 12 or $dow < 1 or $dow > 7 or $n < 1 or $n > 5 |
|
1632
|
602 |
721 |
if $dow < $first |
|
1635
|
1252 |
71 |
if DateCalc_add_delta_days($_year, $_month, $_day, $delta) and $$_month == $mm |
|
1644
|
629 |
0 |
if (DateCalc_week_of_year($_week, $_year, $month, $day)) |
|
1656
|
629 |
0 |
if (DateCalc_check_business_date($$_year, $week, $dow)) |
|
1660
|
260 |
369 |
if $first > 4 |
|
1676
|
20 |
0 |
if (DateCalc_check_time($hour1, $min1, $sec1) and DateCalc_check_time($hour2, $min2, $sec2)) |
|
1691
|
17 |
0 |
if (DateCalc_check_date($year1, $month1, $day1) and DateCalc_check_date($year2, $month2, $day2)) |
|
1703
|
8 |
0 |
if (DateCalc_check_date($$_year1, $$_month1, $$_day1) and DateCalc_check_date($year2, $month2, $day2)) |
|
1717
|
0 |
3 |
unless DateCalc_delta_ymd(\$year1, \$month1, \$day1, $year2, $month2, $day2) |
|
1719
|
0 |
3 |
unless DateCalc_delta_hms($_D_d, $_Dh, $_Dm, $_Ds, $hour1, $min1, $sec1, $hour2, $min2, $sec2) |
|
1733
|
74 |
8 |
if (DateCalc_check_date($$_year1, $$_month1, $$_day1) and DateCalc_check_date($year2, $month2, $day2)) |
|
1738
|
50 |
24 |
if ($Dd < -30 or $Dd > 30) |
|
1742
|
0 |
50 |
unless DateCalc_add_delta_ym(\$ty, \$tm, \$td, $Dy, $Dm) |
|
1743
|
17 |
7 |
unless ($Dy >= 0 and $Dm >= 0 and $Dd >= 0 or $Dy <= 0 and $Dm <= 0 and $Dd <= 0) |
|
1746
|
7 |
26 |
if ($Dy < 0 and $Dm > 0) { } |
|
|
7 |
29 |
elsif ($Dy > 0 and $Dm < 0) { } |
|
1748
|
0 |
4 |
unless DateCalc_add_delta_ym(\$ty, \$tm, \$td, $Dy, $Dm) |
|
|
4 |
29 |
if ($Dm < 0 and $Dd > 0) { } |
|
|
5 |
43 |
elsif ($Dm > 0 and $Dd < 0) { } |
|
1749
|
0 |
5 |
unless DateCalc_add_delta_ym(\$ty, \$tm, \$td, $Dy, $Dm) |
|
1750
|
8 |
25 |
if ($Dy < 0 and $Dd > 0) { } |
|
|
6 |
33 |
elsif ($Dy > 0 and $Dd < 0) { } |
|
1752
|
0 |
8 |
unless DateCalc_add_delta_ym(\$ty, \$tm, \$td, $Dy, $Dm) |
|
|
8 |
25 |
if ($Dm < 0 and $Dd > 0) { } |
|
|
6 |
31 |
elsif ($Dm > 0 and $Dd < 0) { } |
|
1753
|
0 |
6 |
unless DateCalc_add_delta_ym(\$ty, \$tm, \$td, $Dy, $Dm) |
|
1771
|
80 |
0 |
if (DateCalc_check_date($year1, $month1, $day1) and DateCalc_check_time($hour1, $min1, $sec1) and DateCalc_check_date($year2, $month2, $day2) and DateCalc_check_time($hour1, $min2, $sec2)) |
|
1779
|
52 |
28 |
if ($Dd < -30 or $Dd > 30) { } |
|
1783
|
0 |
52 |
unless DateCalc_add_delta_ym(\$ty, \$tm, \$td, $Dy, $Dm) |
|
1784
|
18 |
2 |
unless ($Dy >= 0 and $Dm >= 0 and $Dd >= 0 and $ss >= 0 or $Dy <= 0 and $Dm <= 0 and $Dd <= 0 and $ss <= 0) |
|
1787
|
6 |
40 |
if ($Dy < 0 and $Dm > 0) { } |
|
|
6 |
56 |
elsif ($Dy > 0 and $Dm < 0) { } |
|
1789
|
0 |
4 |
unless DateCalc_add_delta_ym(\$ty, \$tm, \$td, $Dy, $Dm) |
|
|
4 |
42 |
if ($Dm < 0 and $Dd > 0) { } |
|
|
4 |
66 |
elsif ($Dm > 0 and $Dd < 0) { } |
|
1790
|
0 |
4 |
unless DateCalc_add_delta_ym(\$ty, \$tm, \$td, $Dy, $Dm) |
|
1791
|
10 |
36 |
if ($Dy < 0 and $Dd > 0) { } |
|
|
6 |
52 |
elsif ($Dy > 0 and $Dd < 0) { } |
|
1793
|
0 |
10 |
unless DateCalc_add_delta_ym(\$ty, \$tm, \$td, $Dy, $Dm) |
|
|
10 |
36 |
if ($Dm < 0 and $Dd > 0) { } |
|
|
6 |
48 |
elsif ($Dm > 0 and $Dd < 0) { } |
|
1794
|
0 |
6 |
unless DateCalc_add_delta_ym(\$ty, \$tm, \$td, $Dy, $Dm) |
|
1795
|
14 |
32 |
if ($Dd < 0 and $ss > 0) { } |
|
|
14 |
32 |
elsif ($Dd > 0 and $ss < 0) { } |
|
1797
|
0 |
4 |
unless DateCalc_add_delta_ym(\$ty, \$tm, \$td, $Dy, $Dm) |
|
|
4 |
42 |
if ($Dm < 0 and $ss > 0) { } |
|
|
2 |
64 |
elsif ($Dm > 0 and $ss < 0) { } |
|
1798
|
0 |
2 |
unless DateCalc_add_delta_ym(\$ty, \$tm, \$td, $Dy, $Dm) |
|
1799
|
0 |
46 |
if ($Dy < 0 and $ss > 0) { } |
|
|
2 |
82 |
elsif ($Dy > 0 and $ss < 0) { } |
|
1801
|
0 |
0 |
unless DateCalc_add_delta_ym(\$ty, \$tm, \$td, $Dy, $Dm) |
|
|
0 |
46 |
if ($Dm < 0 and $ss > 0) { } |
|
|
2 |
72 |
elsif ($Dm > 0 and $ss < 0) { } |
|
1802
|
0 |
2 |
unless DateCalc_add_delta_ym(\$ty, \$tm, \$td, $Dy, $Dm) |
|
1803
|
4 |
42 |
if ($Dd < 0 and $ss > 0) { } |
|
|
4 |
62 |
elsif ($Dd > 0 and $ss < 0) { } |
|
1809
|
12 |
16 |
if ($Dd < 0 and $ss > 0) { } |
|
|
12 |
6 |
elsif ($Dd > 0 and $ss < 0) { } |
|
1831
|
4459 |
5 |
if (($days = DateCalc_Date_to_Days($$_year, $$_month, $$_day)) > 0 and ($days += $Dd) > 0) |
|
1834
|
4350 |
109 |
if ($Dd != 0) |
|
1838
|
4 |
4346 |
if ($$_day < 1) { } |
|
1844
|
0 |
4350 |
if ($$_day > $DateCalc_Days_in_Year_[$leap][13]) |
|
1851
|
4350 |
26912 |
if ($$_day > $DateCalc_Days_in_Year_[$leap][$$_month]) |
|
1866
|
138 |
0 |
if (DateCalc_check_date($$_year, $$_month, $$_day) and DateCalc_check_time($$_hour, $$_min, $$_sec)) |
|
1877
|
119 |
19 |
if ($Ds > 0) { } |
|
1896
|
0 |
461 |
if $$_year < 1 or $$_month < 1 or $$_month > 12 |
|
1897
|
245 |
216 |
if ($Dm != 0) |
|
1902
|
69 |
176 |
if ($Dm < 0) |
|
1910
|
271 |
190 |
if ($Dy != 0) |
|
1914
|
2 |
459 |
if $$_year < 1 |
|
1922
|
0 |
407 |
unless DateCalc_check_date($$_year, $$_month, $$_day) |
|
1923
|
0 |
407 |
unless DateCalc_add_year_month($_year, $_month, $Dy, $Dm) |
|
1924
|
50 |
357 |
if ($$_day > ($Dd = $DateCalc_Days_in_Month_[DateCalc_leap_year($$_year)][$$_month])) |
|
1934
|
5 |
48 |
unless DateCalc_check_date($$_year, $$_month, $$_day) |
|
1935
|
2 |
46 |
unless DateCalc_add_year_month($_year, $_month, $Dy, $Dm) |
|
1944
|
0 |
6 |
unless DateCalc_check_date($$_year, $$_month, $$_day) and DateCalc_check_time($$_hour, $$_min, $$_sec) |
|
1945
|
0 |
6 |
unless DateCalc_add_year_month($_year, $_month, $D_y, $D_m) |
|
1954
|
0 |
96 |
unless DateCalc_add_delta_ym($_year, $_month, $_day, $Dy, $Dm) |
|
1961
|
0 |
80 |
unless DateCalc_add_delta_ym($_year, $_month, $_day, $D_y, $D_m) |
|
1969
|
1 |
0 |
if ($seconds >= 0) |
|
1972
|
0 |
1 |
if ($gmt) { } |
|
1976
|
0 |
1 |
if ${$_dow;} == 0 |
|
1978
|
0 |
1 |
if ($$_dst != 0) |
|
1980
|
0 |
0 |
if ($$_dst < 0) { } |
|
1991
|
2 |
0 |
if ($seconds >= 0) |
|
1997
|
0 |
2 |
if ${$_dow;} == 0 |
|
2007
|
2 |
0 |
if ($seconds >= 0) |
|
2012
|
0 |
2 |
if ${$_dow;} == 0 |
|
2014
|
0 |
2 |
if ($$_dst != 0) |
|
2016
|
0 |
0 |
if ($$_dst < 0) { } |
|
2036
|
0 |
2 |
if ($^O eq 'MacOS') { } |
|
2038
|
0 |
0 |
if $year < 1904 or $year > 2040 or $month < 1 or $month > 12 or $day < 1 or $day > 31 or $hour < 0 or $hour > 23 or $min < 0 or $min > 59 or $sec < 0 or $sec > 59 |
|
2047
|
0 |
0 |
if $year == 2040 and $month > 2 || $month == 2 && ($day > 6 || $day == 6 && ($hour > 6 || $hour == 6 && ($min > 28 || $min == 28 && $sec > 15))) |
|
2058
|
0 |
2 |
if $year < 1970 or $year > 2038 or $month < 1 or $month > 12 or $day < 1 or $day > 31 or $hour < 0 or $hour > 23 or $min < 0 or $min > 59 or $sec < 0 or $sec > 59 |
|
2067
|
0 |
0 |
if $year == 2038 and $month > 1 || $month == 1 && ($day > 19 || $day == 19 && ($hour > 3 || $hour == 3 && ($min > 14 || $min == 14 && $sec > 7))) |
|
2078
|
2 |
0 |
if ($doy <= 0) { } |
|
2080
|
2 |
0 |
if ($dow <= 0) { } |
|
|
0 |
0 |
elsif ($dow == 7) { } |
|
2082
|
2 |
0 |
if ($dst != 0) |
|
2084
|
2 |
0 |
if ($dst < 0) { } |
|
2088
|
2 |
0 |
if $$_seconds >= 0 |
|
2096
|
0 |
0 |
if ($when >= 0) |
|
2104
|
0 |
0 |
if (DateCalc_delta_ymdhms($_year, $_month, $_day, $_hour, $_min, $_sec, $year1, $month1, $day1, $hour1, $min1, $sec1, $year2, $month2, $day2, $hour2, $min2, $sec2)) |
|
2108
|
0 |
0 |
if ($$_dst != 0) |
|
2110
|
0 |
0 |
if ($$_dst < 0) { } |
|
2146
|
0 |
6 |
if $days < $DateCalc_DAYS_TO_EPOCH or $secs < 0 or $days > $DateCalc_DAYS_TO_OVFLW or $days == $DateCalc_DAYS_TO_OVFLW and $secs > $DateCalc_SECS_TO_OVFLW |
|
2166
|
0 |
8 |
if $ss < 0 |
|
2200
|
2 |
908 |
if $$_year < 1583 or $$_year > 2299 |
|
2202
|
117 |
791 |
if ($$_year < 1700) { } |
|
|
100 |
691 |
elsif ($$_year < 1800) { } |
|
|
100 |
591 |
elsif ($$_year < 1900) { } |
|
|
391 |
200 |
elsif ($$_year < 2100) { } |
|
|
100 |
100 |
elsif ($$_year < 2200) { } |
|
2216
|
741 |
167 |
if ($$_day > 31) |
|
2221
|
6 |
902 |
if $$_day == 26 and $$_month == 4 |
|
2222
|
3 |
2 |
if $$_day == 25 and $$_month == 4 and $d == 28 and $e == 6 and $a > 10 |
|
2242
|
900 |
1221 |
if $lang < 1 or $lang > $DateCalc_LANGUAGES |
|
2250
|
117 |
25259 |
if $length > length $DateCalc_Month_to_Text_[$lang][$m] |
|
2251
|
23129 |
2130 |
if DateCalc_ISO_UC(substr($DateCalc_Month_to_Text_[$lang][$m], 0, $length)) ne $buffer |
|
2252
|
13 |
2117 |
if ($month > 0) { } |
|
2255
|
2104 |
17 |
if $ok |
|
2263
|
35 |
1152 |
if $lang < 1 or $lang > $DateCalc_LANGUAGES |
|
2271
|
37 |
8266 |
if $length > length $DateCalc_Day_of_Week_to_Text_[$lang][$d] |
|
2272
|
7081 |
1185 |
if DateCalc_ISO_UC(substr($DateCalc_Day_of_Week_to_Text_[$lang][$d], 0, $length)) ne $buffer |
|
2273
|
4 |
1181 |
if ($dow > 0) { } |
|
2276
|
1177 |
10 |
if $ok |
|
2291
|
16 |
124 |
if $length > length $DateCalc_Language_to_Text_[$l] |
|
2292
|
114 |
10 |
if DateCalc_ISO_UC(substr($DateCalc_Language_to_Text_[$l], 0, $length)) ne $buffer |
|
2293
|
0 |
10 |
if ($lang > 0) { } |
|
2296
|
10 |
0 |
if $ok |
|
2304
|
11 |
3 |
if $lang < 1 or $lang > $DateCalc_LANGUAGES |
|
2306
|
0 |
14 |
unless $length = length $string |
|
2312
|
14 |
0 |
if ($i + 1 < $j) { } |
|
2320
|
2 |
12 |
if ($j < $i) { } |
|
2322
|
0 |
2 |
if ($length == 3) { } |
|
|
1 |
1 |
elsif ($length == 4) { } |
|
|
0 |
1 |
elsif ($length == 5) { } |
|
|
1 |
0 |
elsif ($length == 6) { } |
|
|
0 |
0 |
elsif ($length == 7) { } |
|
|
0 |
0 |
elsif ($length == 8) { } |
|
2366
|
12 |
0 |
if ($i <= $j) { } |
|
2372
|
12 |
0 |
if ($i >= $length) { } |
|
2376
|
6 |
6 |
if ($i >= $length) { } |
|
2399
|
11 |
0 |
if $lang < 1 or $lang > $DateCalc_LANGUAGES |
|
2402
|
0 |
11 |
unless $length = length $string |
|
2409
|
11 |
0 |
if ($i + 1 < $j) { } |
|
2417
|
4 |
7 |
if ($i >= $length) { } |
|
2419
|
1 |
3 |
if ($j < 0) { } |
|
2421
|
0 |
1 |
if ($length == 3) { } |
|
|
1 |
0 |
elsif ($length == 4) { } |
|
|
0 |
0 |
elsif ($length == 5) { } |
|
|
0 |
0 |
elsif ($length == 6) { } |
|
|
0 |
0 |
elsif ($length == 7) { } |
|
|
0 |
0 |
elsif ($length == 8) { } |
|
2464
|
0 |
3 |
if ($length == 2) { } |
|
|
2 |
1 |
elsif ($length == 3) { } |
|
|
0 |
1 |
elsif ($length == 4) { } |
|
|
1 |
0 |
elsif ($length == 5) { } |
|
|
0 |
0 |
elsif ($length == 6) { } |
|
2496
|
4 |
3 |
if ($k >= $i) { } |
|
2503
|
0 |
3 |
if ($$_month == 0) |
|
2513
|
0 |
7 |
if ($j < $i) { } |
|
2517
|
0 |
0 |
if ($length == 2) { } |
|
|
0 |
0 |
elsif ($length == 3) { } |
|
|
0 |
0 |
elsif ($length == 4) { } |
|
|
0 |
0 |
elsif ($length == 5) { } |
|
|
0 |
0 |
elsif ($length == 6) { } |
|
2549
|
7 |
0 |
if ($k > $j) { } |
|
2566
|
0 |
0 |
if $year < 0 |
|
2567
|
0 |
0 |
if ($year < 100) |
|
2569
|
0 |
0 |
if $year < $DateCalc_YEAR_OF_EPOCH |
|
2579
|
0 |
109 |
if $year < 0 |
|
2580
|
68 |
41 |
if ($year < 100) |
|
2582
|
68 |
0 |
if (($seconds = time) >= 0) { } |
|
2587
|
0 |
68 |
if ($year < $current - 50) { } |
|
|
0 |
68 |
elsif ($year >= $current + 50) { } |
|
2599
|
3 |
3 |
if ($year >= $DateCalc_EPOCH and $year < $DateCalc_EPOCH + 100) { } |
|
2606
|
1 |
2 |
if $year < 0 or $year > 99 |
|
2607
|
1 |
1 |
if ($year < $DateCalc_YEAR_OF_EPOCH) { } |
|
2618
|
0 |
5 |
if $month < 1 or $month > 12 |
|
2619
|
1 |
4 |
if $day < 1 or $day > $DateCalc_Days_in_Month_[DateCalc_leap_year($yy)][$month] |
|
2628
|
24 |
6 |
if ($date > 0) |
|
2633
|
24 |
0 |
if ($$_year < 100) |
|
2635
|
18 |
6 |
if ($$_year < 100 - $DateCalc_YEAR_OF_EPOCH) { } |
|
2661
|
10 |
10 |
if $lang < 1 or $lang > $DateCalc_LANGUAGES |
|
2662
|
12 |
8 |
if (DateCalc_uncompress($date, \$century, \$year, \$month, \$day)) { } |
|
2673
|
4 |
5 |
if $lang < 1 or $lang > $DateCalc_LANGUAGES |
|
2674
|
9 |
0 |
if (DateCalc_check_date($year, $month, $day)) |
|
2676
|
0 |
9 |
if ($DateCalc_Day_of_Week_Abbreviation_[$lang][0] ne '') { } |
|
2696
|
13 |
0 |
if (($length = length $result) > 0) |
|
2698
|
4 |
9 |
unless $length > 1 && substr($result, $length - 2, 1) ne '1' || $length == 1 and ($digit = substr($result, $length - 1, 1)) <= 3 |
|
2713
|
20 |
35 |
if $lang < 1 or $lang > $DateCalc_LANGUAGES |
|
2714
|
55 |
0 |
if (DateCalc_check_date($year, $month, $day)) |
|
2716
|
13 |
42 |
if ($lang == 1) { } |
|
|
0 |
42 |
elsif ($lang == 12) { } |
|
2760
|
24 |
0 |
if ($lang < 1 or $lang > $DateCalc_LANGUAGES) |
|
2766
|
0 |
24 |
if ($DateCalc_Day_of_Week_Abbreviation_[$lang][0] ne '') { } |
|
2768
|
0 |
0 |
if ($orthodox) { } |
|
2793
|
12 |
12 |
if ($orthodox) { } |
|
2818
|
1 |
11 |
if $first == 7 |
|
|
12 |
12 |
if ($orthodox) { } |
|
2820
|
20 |
4 |
if ($first) |
|
2823
|
727 |
4 |
if ($first > 0) |
|
2825
|
101 |
626 |
if ($first > 6) { } |
|
2846
|
0 |
46 |
unless @_ == 1 or @_ == 2 |
|
2852
|
42 |
4 |
unless $lang >= 1 and $lang <= Languages() |
|
2853
|
22 |
24 |
if ($buffer =~ /^\D* (\d+) [^A-Za-z0-9\xC0-\xD6\xD8-\xF6\xF8-\xFF]* ([A-Za-z\xC0-\xD6\xD8-\xF6\xF8-\xFF]+) [^A-Za-z0-9\xC0-\xD6\xD8-\xF6\xF8-\xFF]* (\d+) \D*$/x) { } |
|
|
19 |
5 |
elsif ($buffer =~ /^\D* 0*(\d+) \D*$/x) { } |
|
|
3 |
2 |
elsif ($buffer =~ /^\D* (\d+) \D+ (\d+) \D+ (\d+) \D*$/x) { } |
|
2857
|
1 |
21 |
unless ($month > 0) |
|
2866
|
3 |
16 |
if ($length == 3) { } |
|
|
3 |
13 |
elsif ($length == 4) { } |
|
|
3 |
10 |
elsif ($length == 5) { } |
|
|
3 |
7 |
elsif ($length == 6) { } |
|
|
3 |
4 |
elsif ($length == 7) { } |
|
|
3 |
1 |
elsif ($length == 8) { } |
|
2910
|
40 |
2 |
if (check_date($year, $month, $day)) { } |
|
2919
|
0 |
46 |
unless @_ == 1 or @_ == 2 |
|
2925
|
42 |
4 |
unless $lang >= 1 and $lang <= Languages() |
|
2926
|
14 |
32 |
if ($buffer =~ /^[^A-Za-z0-9\xC0-\xD6\xD8-\xF6\xF8-\xFF]* ([A-Za-z\xC0-\xD6\xD8-\xF6\xF8-\xFF]+) [^A-Za-z0-9\xC0-\xD6\xD8-\xF6\xF8-\xFF]* 0*(\d+) \D*$/x) { } |
|
|
8 |
24 |
elsif ($buffer =~ /^[^A-Za-z0-9\xC0-\xD6\xD8-\xF6\xF8-\xFF]* ([A-Za-z\xC0-\xD6\xD8-\xF6\xF8-\xFF]+) [^A-Za-z0-9\xC0-\xD6\xD8-\xF6\xF8-\xFF]* (\d+) \D+ (\d+) \D*$/x) { } |
|
|
19 |
5 |
elsif ($buffer =~ /^\D* 0*(\d+) \D*$/x) { } |
|
|
3 |
2 |
elsif ($buffer =~ /^\D* (\d+) \D+ (\d+) \D+ (\d+) \D*$/x) { } |
|
2930
|
0 |
14 |
unless ($month > 0) |
|
2935
|
0 |
14 |
if ($length == 2) { } |
|
|
3 |
11 |
elsif ($length == 3) { } |
|
|
4 |
7 |
elsif ($length == 4) { } |
|
|
3 |
4 |
elsif ($length == 5) { } |
|
|
4 |
0 |
elsif ($length == 6) { } |
|
2966
|
1 |
7 |
unless ($month > 0) |
|
2975
|
3 |
16 |
if ($length == 3) { } |
|
|
3 |
13 |
elsif ($length == 4) { } |
|
|
3 |
10 |
elsif ($length == 5) { } |
|
|
3 |
7 |
elsif ($length == 6) { } |
|
|
3 |
4 |
elsif ($length == 7) { } |
|
|
3 |
1 |
elsif ($length == 8) { } |
|
3019
|
40 |
2 |
if (check_date($year, $month, $day)) { } |
|
3028
|
0 |
15 |
unless @_ == 1 or @_ == 2 |
|
3034
|
11 |
4 |
unless $lang >= 1 and $lang <= Languages() |
|
3035
|
1 |
14 |
unless ($date =~ /\b([\x41-\x5A\x61-\x7A\xC0-\xD6\xD8-\xF6\xF8-\xFF]{3})\s+([0123]??\d)\b/) |
|
3041
|
1 |
13 |
unless ($date =~ /\b(19\d\d|20\d\d)\b/) |
|
3047
|
0 |
13 |
unless ($month > 0) |
|
3051
|
1 |
12 |
unless (check_date($year, $month, $day)) |