| line |
true |
false |
branch |
|
174
|
2 |
7507 |
unless @_ == $num_input_params_03 |
|
175
|
2 |
7505 |
unless ref \$_[0] eq 'SCALAR' |
|
176
|
1 |
7504 |
unless $_[0] ne '' |
|
183
|
6821 |
683 |
if (m[^(\d{1,2})/(\d{1,2})/(\-{0,1}\d{1,})$] and is_valid_date($1, $2, $3)) |
|
184
|
582 |
101 |
if (/^([a-z]{3,3})\s+([a-z]{3,3})\s+(\d{1,2})\s+\d\d:\d\d:\d\d\s+(\-{0,1}\d{1,})$/i and is_valid_date($2, $3, $4, $1)) |
|
185
|
18 |
83 |
if (/^([a-z]{3,})\s+(\d{1,2}),\s+(\-{0,1}\d{1,})$/i and is_valid_date($1, $2, $3)) |
|
186
|
13 |
70 |
if (/^(\d{1,2})\s+([a-z]{3,}),\s+(\-{0,1}\d{1,})$/i and is_valid_date($2, $1, $3)) |
|
187
|
8 |
62 |
if (/^(\-{0,1}\d{1,})\-(\d{2,2})\-(\d{2,2})$/ and is_valid_date($2, $3, $1)) |
|
238
|
3 |
7529 |
if (@_ != 1 and @_ != 3 and @_ != 4) |
|
246
|
10 |
7529 |
if (@_ == 1) { } |
|
|
6909 |
620 |
elsif (@_ == 3) { } |
|
249
|
1 |
9 |
if (ref \$date_in_04 ne 'SCALAR') |
|
254
|
1 |
8 |
if ($date_in_04 eq '') |
|
259
|
6 |
2 |
if (date_only_parse($date_in_04) eq '') { } |
|
271
|
16 |
6893 |
unless (is_valid_month($month_input_00)) |
|
276
|
1 |
6892 |
unless (is_valid_year($year_in_00)) |
|
281
|
26 |
6866 |
unless (is_valid_day_of_month($month_input_00, $day_of_month_in_00, $year_in_00)) |
|
289
|
1 |
619 |
unless (is_valid_month($month_input_00)) |
|
294
|
1 |
618 |
unless (is_valid_year($year_in_00)) |
|
299
|
4 |
614 |
unless (is_valid_day_of_month($month_input_00, $day_of_month_in_00, $year_in_00)) |
|
304
|
3 |
611 |
unless (is_valid_day_of_week($day_of_week_in_00)) |
|
321
|
611 |
6866 |
if ($day_of_week_in_00) |
|
323
|
7 |
604 |
if (set_day_to_day_number($day_of_week_in_00) != $day_of_week_on_day_n_00) |
|
358
|
5 |
18391 |
unless @_ == $num_input_params_15 |
|
359
|
1 |
18390 |
unless ref \$num_days_in_year_02 eq 'SCALAR' |
|
360
|
1 |
18389 |
unless $num_days_in_year_02 ne '' |
|
361
|
3 |
18386 |
unless $num_days_in_year_02 eq '365' or $num_days_in_year_02 eq '366' |
|
363
|
1 |
18385 |
unless ref \$day_of_week_on_first_of_month_00 eq 'SCALAR' |
|
364
|
1 |
18384 |
unless $day_of_week_on_first_of_month_00 ne '' |
|
365
|
2 |
18382 |
unless is_valid_day_of_week($day_of_week_on_first_of_month_00) =~ /^\d$/ |
|
371
|
3271 |
15111 |
if ($day_of_week_on_first_of_month_00 > 7) |
|
404
|
2 |
372396 |
unless @_ == $num_input_params_01 |
|
405
|
2 |
372394 |
unless ref \$year_in_01 eq 'SCALAR' |
|
406
|
1 |
372393 |
unless $year_in_01 ne '' |
|
407
|
3 |
372390 |
unless $year_in_01 =~ /^\-{0,1}\d+$/ |
|
411
|
277880 |
94510 |
if ($year_in_01 % 4 > 0) |
|
415
|
2869 |
369521 |
if ($year_in_01 % 100 == 0 and $year_in_01 % 400 > 0) |
|
451
|
1 |
236252 |
unless @_ == $num_input_params_02 |
|
452
|
2 |
236250 |
unless ref \$year_in_02 eq 'SCALAR' |
|
453
|
1 |
236249 |
unless $year_in_02 ne '' |
|
454
|
3 |
236246 |
unless $year_in_02 =~ /^\-{0,1}\d+$/ |
|
459
|
3388 |
232858 |
if ($year_offset_00 > 0) { } |
|
|
231173 |
1685 |
elsif ($year_offset_00 < 0) { } |
|
466
|
2740 |
228433 |
if ($year_phase_00 == 400) |
|
476
|
1685 |
234561 |
if ($year_phase_00 eq '') |
|
508
|
2 |
2286 |
unless @_ == $num_input_params_00 |
|
509
|
2 |
2284 |
unless ref \$date_in_00 eq 'SCALAR' |
|
510
|
1 |
2283 |
unless $date_in_00 ne '' |
|
511
|
5 |
2278 |
unless date_only_parse($date_in_00) |
|
521
|
1912 |
11251 |
if ($iii_001 == 1) { } |
|
523
|
687 |
1225 |
if (is_leap_year($year_num_01)) { } |
|
563
|
1 |
283529 |
unless @_ == $num_input_params_14 |
|
564
|
2 |
283527 |
unless ref \$month_in_02 eq 'SCALAR' |
|
565
|
1 |
283526 |
unless $month_in_02 ne '' |
|
569
|
3 |
283523 |
unless is_valid_month($month_in_02) |
|
577
|
25870 |
257653 |
if (/^(JAN|JANUARY)$/) |
|
578
|
23705 |
233948 |
if (/^(FEB|FEBRUARY)$/) |
|
579
|
22747 |
211201 |
if (/^(MAR|MARCH)$/) |
|
580
|
22433 |
188768 |
if (/^(APR|APRIL)$/) |
|
581
|
22056 |
166712 |
if (/^(MAY|MAY)$/) |
|
582
|
21960 |
144752 |
if (/^(JUN|JUNE)$/) |
|
583
|
31190 |
113562 |
if (/^(JUL|JULY)$/) |
|
584
|
21371 |
92191 |
if (/^(AUG|AUGUST)$/) |
|
585
|
21263 |
70928 |
if (/^(SEP|SEPTEMBER)$/) |
|
586
|
23923 |
47005 |
if (/^(OCT|OCTOBER)$/) |
|
587
|
21166 |
25839 |
if (/^(NOV|NOVEMBER)$/) |
|
588
|
25838 |
1 |
if (/^(DEC|DECEMBER)$/) |
|
616
|
1 |
239883 |
unless @_ == $num_input_params_05 |
|
617
|
2 |
239881 |
unless ref \$day_in_02 eq 'SCALAR' |
|
618
|
1 |
239880 |
unless $day_in_02 ne '' |
|
622
|
5 |
239875 |
unless is_valid_day_of_week($day_in_02) ne '' |
|
629
|
33626 |
206249 |
if (/^(MON|MONDAY)$/) |
|
630
|
34801 |
171448 |
if (/^(TUE|TUESDAY)$/) |
|
631
|
34178 |
137270 |
if (/^(WED|WEDNESDAY)$/) |
|
632
|
34173 |
103097 |
if (/^(THU|THURSDAY)$/) |
|
633
|
34808 |
68289 |
if (/^(FRI|FRIDAY)$/) |
|
634
|
33569 |
34720 |
if (/^(SAT|SATURDAY)$/) |
|
635
|
34719 |
1 |
if (/^(SUN|SUNDAY)$/) |
|
663
|
1 |
280241 |
unless @_ == $num_input_params_06 |
|
664
|
2 |
280239 |
unless ref \$month_in_03 eq 'SCALAR' |
|
665
|
1 |
280238 |
unless $month_in_03 ne '' |
|
668
|
4 |
280234 |
unless $month_in_03 =~ /^(\d{1,2})$/i |
|
675
|
25339 |
254895 |
if ($_ == 1) |
|
676
|
23412 |
231483 |
if ($_ == 2) |
|
677
|
22723 |
208760 |
if ($_ == 3) |
|
678
|
22414 |
186346 |
if ($_ == 4) |
|
679
|
21987 |
164359 |
if ($_ == 5) |
|
680
|
21910 |
142449 |
if ($_ == 6) |
|
681
|
29184 |
113265 |
if ($_ == 7) |
|
682
|
21341 |
91924 |
if ($_ == 8) |
|
683
|
21179 |
70745 |
if ($_ == 9) |
|
684
|
23847 |
46898 |
if ($_ == 10) |
|
685
|
21143 |
25755 |
if ($_ == 11) |
|
686
|
25749 |
6 |
if ($_ == 12) |
|
714
|
1 |
239254 |
unless @_ == $num_input_params_07 |
|
715
|
2 |
239252 |
unless ref \$day_in_03 eq 'SCALAR' |
|
716
|
1 |
239251 |
unless $day_in_03 ne '' |
|
720
|
3 |
239248 |
unless $day_in_03 =~ /^(\d{1,2})$/i |
|
727
|
33509 |
205739 |
if ($_ == 1) |
|
728
|
34694 |
171045 |
if ($_ == 2) |
|
729
|
34096 |
136949 |
if ($_ == 3) |
|
730
|
34095 |
102854 |
if ($_ == 4) |
|
731
|
34650 |
68204 |
if ($_ == 5) |
|
732
|
33502 |
34702 |
if ($_ == 6) |
|
733
|
34696 |
6 |
if ($_ == 7) |
|
761
|
1 |
34 |
unless @_ == $num_input_params_08 |
|
762
|
2 |
32 |
unless ref \$day_in_04 eq 'SCALAR' |
|
763
|
1 |
31 |
unless $day_in_04 ne '' |
|
765
|
15 |
16 |
if ($day_in_04 =~ /^(\d{1,2})$/i) { } |
|
797
|
1 |
17 |
unless @_ == $num_input_params_35 |
|
798
|
2 |
15 |
unless ref \$day_in_06 eq 'SCALAR' |
|
799
|
1 |
14 |
unless $day_in_06 ne '' |
|
800
|
4 |
10 |
unless is_valid_day_of_week($day_in_06) |
|
808
|
1 |
9 |
if ($_ == 1) |
|
809
|
2 |
7 |
if ($_ == 2) |
|
810
|
1 |
6 |
if ($_ == 3) |
|
811
|
1 |
5 |
if ($_ == 4) |
|
812
|
1 |
4 |
if ($_ == 5) |
|
813
|
2 |
2 |
if ($_ == 6) |
|
841
|
1 |
48 |
unless @_ == $num_input_params_09 |
|
842
|
2 |
46 |
unless ref \$month_in_04 eq 'SCALAR' |
|
843
|
1 |
45 |
unless $month_in_04 ne '' |
|
845
|
20 |
25 |
if ($month_in_04 =~ /^(\d{1,2})$/i) { } |
|
877
|
1 |
24 |
unless @_ == $num_input_params_34 |
|
878
|
2 |
22 |
unless ref \$month_in_07 eq 'SCALAR' |
|
879
|
1 |
21 |
unless $month_in_07 ne '' |
|
880
|
5 |
16 |
unless is_valid_month($month_in_07) |
|
888
|
1 |
15 |
if ($_ == 1) |
|
889
|
3 |
12 |
if ($_ == 2) |
|
890
|
1 |
11 |
if ($_ == 3) |
|
891
|
2 |
9 |
if ($_ == 4) |
|
892
|
1 |
8 |
if ($_ == 5) |
|
893
|
1 |
7 |
if ($_ == 6) |
|
894
|
1 |
6 |
if ($_ == 7) |
|
895
|
2 |
4 |
if ($_ == 8) |
|
896
|
1 |
3 |
if ($_ == 9) |
|
897
|
1 |
2 |
if ($_ == 10) |
|
898
|
1 |
1 |
if ($_ == 11) |
|
926
|
1 |
239853 |
unless @_ == $num_input_params_10 |
|
927
|
2 |
239851 |
unless ref \$day_in_05 eq 'SCALAR' |
|
928
|
1 |
239850 |
unless $day_in_05 ne '' |
|
930
|
640 |
239210 |
if (not $day_in_05 =~ /^(\d{1,2})$/i) { } |
|
962
|
1 |
283480 |
unless @_ == $num_input_params_11 |
|
963
|
2 |
283478 |
unless ref \$month_in_06 eq 'SCALAR' |
|
964
|
1 |
283477 |
unless $month_in_06 ne '' |
|
966
|
3301 |
280176 |
if (not $month_in_06 =~ /^(\d{1,2})$/i) { } |
|
1001
|
1 |
144158 |
unless @_ == $num_input_params_04 |
|
1002
|
2 |
144156 |
unless ref \$year_in_03 eq 'SCALAR' |
|
1003
|
1 |
144155 |
unless $year_in_03 ne '' |
|
1004
|
3 |
144152 |
unless $year_in_03 =~ /^\-{0,1}\d+$/ |
|
1006
|
35135 |
109017 |
if (is_leap_year($year_in_03) ne '') { } |
|
1042
|
8 |
135 |
unless @_ == $num_input_params_12 |
|
1044
|
1 |
134 |
unless ref \$date_one_00 eq 'SCALAR' |
|
1045
|
1 |
133 |
unless ref \$date_two_00 eq 'SCALAR' |
|
1047
|
1 |
132 |
unless $date_one_00 ne '' |
|
1048
|
1 |
131 |
unless $date_two_00 ne '' |
|
1050
|
1 |
130 |
unless date_only_parse($date_one_00) |
|
1051
|
1 |
129 |
unless date_only_parse($date_two_00) |
|
1057
|
0 |
125 |
if ($date_compare_00 ne '0' and $date_compare_00 ne '-1' and $date_compare_00 ne '1') |
|
1063
|
4 |
125 |
if ($date_compare_00 eq '0') |
|
1067
|
57 |
68 |
if ($date_compare_00 eq '-1') |
|
1072
|
68 |
57 |
if ($date_compare_00 eq '1') |
|
1085
|
108 |
17 |
if ($date1_year_num_02 >= 0) { } |
|
1094
|
2 |
15 |
if ($year_phase_date_one_00 >= $NUMBER_OF_YEAR_PHASES) |
|
1102
|
81 |
44 |
if ($date2_year_num_02 >= 0) { } |
|
1111
|
6 |
38 |
if ($year_phase_date_two >= $NUMBER_OF_YEAR_PHASES) |
|
1135
|
70 |
55 |
if ($which_400yr_cycle_occurrence_for_date_one_02 == $which_400yr_cycle_occurrence_for_date_two_02) { } |
|
|
22 |
33 |
elsif ($which_400yr_cycle_occurrence_for_date_one_02 == $which_400yr_cycle_occurrence_for_date_two_02 + 1) { } |
|
1151
|
68 |
57 |
if ($date_compare_00 == 1) { } |
|
1185
|
2 |
563573 |
if (@_ != 1) |
|
1190
|
2 |
563571 |
if (ref \$month_input_01 ne 'SCALAR') |
|
1195
|
1 |
563570 |
if ($month_input_01 eq '') |
|
1202
|
51 |
563519 |
unless ($month_input_01 =~ /^(\d{1,2}|Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec|January|February|March|April|May|June|July|August|September|October|November|December)$/i) |
|
1209
|
277238 |
286281 |
if ($month_input_01 =~ /^(\d{1,2})$/) |
|
1211
|
33 |
277205 |
if ($1 < 1 or $1 > 12) |
|
1248
|
25 |
22956 |
if (@_ != 3) |
|
1253
|
1 |
22955 |
if (ref \$day_of_month_input_00 ne 'SCALAR') |
|
1258
|
1 |
22954 |
if ($day_of_month_input_00 eq '') |
|
1263
|
4 |
22950 |
unless (is_valid_month($month_input_02)) |
|
1269
|
1 |
22949 |
unless (is_valid_year($year_input_01)) |
|
1275
|
48 |
22897 |
unless ($day_of_month_input_00 =~ /^(\d{1,2})$/ and $1 > 0 and $1 < 32) |
|
1283
|
14 |
22883 |
if ($month_num_03 == 4 || $month_num_03 == 6 || $month_num_03 == 9 || $month_num_03 == 11 and $day_of_month_input_00 > 30) |
|
1289
|
18 |
1549 |
if ($month_num_03 == 2 and not is_leap_year($year_input_01) and $day_of_month_input_00 > 28) |
|
1295
|
7 |
1542 |
if ($month_num_03 == 2 and is_leap_year($year_input_01) and $day_of_month_input_00 > 29) |
|
1333
|
2 |
258937 |
if (@_ != 1) |
|
1338
|
2 |
258935 |
if (ref \$day_of_week_input_00 ne 'SCALAR') |
|
1343
|
1 |
258934 |
if ($day_of_week_input_00 eq '') |
|
1349
|
21 |
258913 |
unless ($day_of_week_input_00 =~ /^(\d|Mon|Tue|Wed|Thu|Fri|Sat|Sun|Monday|Tuesday|Wednesday|Thursday|Friday|Saturday|Sunday)$/i) |
|
1356
|
18397 |
240516 |
if ($day_of_week_input_00 =~ /^(\d)$/) |
|
1358
|
10 |
18387 |
if ($1 < 1 or $1 > 7) |
|
1391
|
2 |
280188 |
if (@_ != 1) |
|
1396
|
2 |
280186 |
if (ref \$year_input_00 ne 'SCALAR') |
|
1401
|
1 |
280185 |
if ($year_input_00 eq '') |
|
1406
|
31 |
280154 |
unless ($year_input_00 =~ /^\-{0,1}\d{1,}$/) |
|
1438
|
2 |
122 |
if (@_ != 1) |
|
1443
|
2 |
120 |
if (ref \$four_hundred_year_cycle_01 ne 'SCALAR') |
|
1448
|
1 |
119 |
if ($four_hundred_year_cycle_01 eq '') |
|
1453
|
15 |
104 |
unless ($four_hundred_year_cycle_01 =~ /^\-{0,1}(\d+)$/ and $1 % $NUMBER_OF_YEAR_PHASES == 0) |
|
1489
|
7 |
151 |
unless @_ == $num_input_params_18 |
|
1491
|
1 |
150 |
unless ref \$date_one_01 eq 'SCALAR' |
|
1492
|
1 |
149 |
unless $date_one_01 ne '' |
|
1493
|
1 |
148 |
unless date_only_parse($date_one_01) |
|
1495
|
1 |
147 |
unless ref \$date_two_01 eq 'SCALAR' |
|
1496
|
1 |
146 |
unless $date_two_01 ne '' |
|
1497
|
1 |
145 |
unless date_only_parse($date_two_01) |
|
1509
|
47 |
98 |
if ($date1_year_num_03 > $date2_year_num_03) { } |
|
|
1 |
97 |
elsif ($date1_year_num_03 == $date2_year_num_03 and $date1_month_num_04 > $date2_month_num_04) { } |
|
|
25 |
72 |
elsif ($date1_year_num_03 == $date2_year_num_03 and $date1_month_num_04 == $date2_month_num_04 and $date1_day_of_month_03 > $date2_day_of_month_03) { } |
|
|
7 |
65 |
elsif ($date1_year_num_03 == $date2_year_num_03 and $date1_month_num_04 == $date2_month_num_04 and $date1_day_of_month_03 == $date2_day_of_month_03) { } |
|
1559
|
6 |
100 |
unless @_ == $num_input_params_19 |
|
1561
|
1 |
99 |
unless ref \$date_in_01 eq 'SCALAR' |
|
1562
|
1 |
98 |
unless $date_in_01 ne '' |
|
1563
|
2 |
96 |
unless date_only_parse($date_in_01) |
|
1565
|
1 |
95 |
unless ref \$date_delta_00 eq 'SCALAR' |
|
1566
|
1 |
94 |
unless $date_delta_00 ne '' |
|
1567
|
1 |
93 |
unless $date_delta_00 =~ /^\-{0,1}\d+$/ |
|
1570
|
6 |
87 |
if ($date_delta_00 == 0) |
|
1583
|
44 |
43 |
if ($date_delta_00 >= 0) { } |
|
1598
|
44 |
43 |
if ($date_delta_00 >= 0) { } |
|
1603
|
39 |
5 |
if ($days_left_in_offset_400_year_cycle >= $days_left_00) { } |
|
1618
|
38 |
5 |
if ($days_used_in_offset_400_year_cycle > $days_left_00) { } |
|
1664
|
1 |
110 |
unless @_ == $num_input_params_20 |
|
1666
|
2 |
108 |
unless ref \$year_input_08 eq 'SCALAR' |
|
1667
|
1 |
107 |
unless $year_input_08 ne '' |
|
1668
|
3 |
104 |
unless is_valid_year($year_input_08) |
|
1672
|
95 |
9 |
if ($year_input_08 >= 0) { } |
|
1678
|
4 |
5 |
if (abs($year_input_08) % $NUMBER_OF_YEAR_PHASES == 0) { } |
|
1717
|
7 |
13202 |
unless @_ == $num_input_params_21 |
|
1719
|
1 |
13201 |
unless ref \$month_input_04 eq 'SCALAR' |
|
1720
|
1 |
13200 |
unless $month_input_04 ne '' |
|
1721
|
10 |
13190 |
unless is_valid_month($month_input_04) |
|
1723
|
2 |
13188 |
unless ref \$year_input_02 eq 'SCALAR' |
|
1724
|
1 |
13187 |
unless $year_input_02 ne '' |
|
1725
|
1 |
13186 |
unless is_valid_year($year_input_02) |
|
1731
|
3813 |
9373 |
if ($month_num_06 == 4 or $month_num_06 == 6 or $month_num_06 == 9 or $month_num_06 == 11) { } |
|
|
1230 |
8143 |
elsif ($month_num_06 == 2 and not is_leap_year($year_input_02)) { } |
|
|
690 |
7453 |
elsif ($month_num_06 == 2) { } |
|
1783
|
1 |
49 |
unless @_ == $num_input_params_22 |
|
1786
|
1 |
48 |
unless ref \$month_input_05 eq 'SCALAR' |
|
1787
|
1 |
47 |
unless $month_input_05 ne '' |
|
1788
|
1 |
46 |
unless is_valid_month($month_input_05) |
|
1790
|
1 |
45 |
unless ref \$year_input_03 eq 'SCALAR' |
|
1791
|
1 |
44 |
unless $year_input_03 ne '' |
|
1792
|
1 |
43 |
unless is_valid_year($year_input_03) |
|
1794
|
1 |
42 |
unless ref \$day_of_month_input_01 eq 'SCALAR' |
|
1795
|
1 |
41 |
unless $day_of_month_input_01 ne '' |
|
1796
|
16 |
25 |
unless is_valid_day_of_month($month_input_05, $day_of_month_input_01, $year_input_03) |
|
1802
|
6 |
19 |
if ($month_num_07 == 4 or $month_num_07 == 6 or $month_num_07 == 9 or $month_num_07 == 11) { } |
|
|
5 |
14 |
elsif ($month_num_07 == 2 and not is_leap_year($year_input_03)) { } |
|
|
3 |
11 |
elsif ($month_num_07 == 2) { } |
|
1854
|
2 |
24 |
unless @_ == $num_input_params_23 |
|
1857
|
1 |
23 |
unless ref \$month_input_06 eq 'SCALAR' |
|
1858
|
1 |
22 |
unless $month_input_06 ne '' |
|
1859
|
4 |
18 |
unless is_valid_month($month_input_06) |
|
1861
|
1 |
17 |
unless ref \$year_input_04 eq 'SCALAR' |
|
1862
|
1 |
16 |
unless $year_input_04 ne '' |
|
1863
|
1 |
15 |
unless is_valid_year($year_input_04) |
|
1865
|
1 |
14 |
unless ref \$day_of_month_input_02 eq 'SCALAR' |
|
1866
|
1 |
13 |
unless $day_of_month_input_02 ne '' |
|
1867
|
4 |
9 |
unless is_valid_day_of_month($month_input_06, $day_of_month_input_02, $year_input_04) |
|
1906
|
1 |
207 |
unless @_ == $num_input_params_24 |
|
1909
|
1 |
206 |
unless ref \$month_input_07 eq 'SCALAR' |
|
1910
|
1 |
205 |
unless $month_input_07 ne '' |
|
1911
|
5 |
200 |
unless is_valid_month($month_input_07) |
|
1913
|
1 |
199 |
unless ref \$year_input_05 eq 'SCALAR' |
|
1914
|
1 |
198 |
unless $year_input_05 ne '' |
|
1915
|
1 |
197 |
unless is_valid_year($year_input_05) |
|
1917
|
1 |
196 |
unless ref \$day_of_month_input_03 eq 'SCALAR' |
|
1918
|
1 |
195 |
unless $day_of_month_input_03 ne '' |
|
1919
|
3 |
192 |
unless is_valid_day_of_month($month_input_07, $day_of_month_input_03, $year_input_05) |
|
1968
|
1 |
108 |
unless @_ == $num_input_params_25 |
|
1971
|
1 |
107 |
unless ref \$month_input_08 eq 'SCALAR' |
|
1972
|
1 |
106 |
unless $month_input_08 ne '' |
|
1973
|
4 |
102 |
unless is_valid_month($month_input_08) |
|
1975
|
1 |
101 |
unless ref \$year_input_06 eq 'SCALAR' |
|
1976
|
1 |
100 |
unless $year_input_06 ne '' |
|
1977
|
1 |
99 |
unless is_valid_year($year_input_06) |
|
1979
|
1 |
98 |
unless ref \$day_of_month_input_04 eq 'SCALAR' |
|
1980
|
1 |
97 |
unless $day_of_month_input_04 ne '' |
|
1981
|
2 |
95 |
unless is_valid_day_of_month($month_input_08, $day_of_month_input_04, $year_input_06) |
|
2015
|
4 |
166 |
unless @_ == $num_input_params_26 |
|
2017
|
1 |
165 |
unless ref \$year_input_07 eq 'SCALAR' |
|
2018
|
1 |
164 |
unless $year_input_07 ne '' |
|
2019
|
1 |
163 |
unless is_valid_year($year_input_07) |
|
2021
|
1 |
162 |
unless ref \$day_number_in_year_00 eq 'SCALAR' |
|
2022
|
1 |
161 |
unless $day_number_in_year_00 ne '' |
|
2025
|
113 |
48 |
if (not is_leap_year($year_input_07)) { } |
|
2027
|
3 |
108 |
unless $day_number_in_year_00 =~ /^(\d{1,3})$/ and $1 > 0 and $1 < 366 |
|
2031
|
2 |
45 |
unless $day_number_in_year_00 =~ /^(\d{1,3})$/ and $1 > 0 and $1 < 367 |
|
2037
|
17 |
136 |
if ($day_number_in_year_00 < 32) { } |
|
|
102 |
34 |
elsif (not is_leap_year($year_input_07)) { } |
|
2047
|
2 |
100 |
if ($_ < 60) |
|
2048
|
2 |
98 |
if ($_ < 91) |
|
2049
|
2 |
96 |
if ($_ < 121) |
|
2050
|
2 |
94 |
if ($_ < 152) |
|
2051
|
3 |
91 |
if ($_ < 182) |
|
2052
|
71 |
20 |
if ($_ < 213) |
|
2053
|
2 |
18 |
if ($_ < 244) |
|
2054
|
2 |
16 |
if ($_ < 274) |
|
2055
|
3 |
13 |
if ($_ < 305) |
|
2056
|
2 |
11 |
if ($_ < 335) |
|
2067
|
3 |
31 |
if ($_ < 61) |
|
2068
|
3 |
28 |
if ($_ < 92) |
|
2069
|
3 |
25 |
if ($_ < 122) |
|
2070
|
3 |
22 |
if ($_ < 153) |
|
2071
|
3 |
19 |
if ($_ < 183) |
|
2072
|
3 |
16 |
if ($_ < 214) |
|
2073
|
3 |
13 |
if ($_ < 245) |
|
2074
|
3 |
10 |
if ($_ < 275) |
|
2075
|
3 |
7 |
if ($_ < 306) |
|
2076
|
3 |
4 |
if ($_ < 336) |
|
2112
|
5 |
104 |
unless @_ == $num_input_params_27 |
|
2114
|
1 |
103 |
unless ref \$four_hundred_year_cycle_00 eq 'SCALAR' |
|
2115
|
1 |
102 |
unless $four_hundred_year_cycle_00 ne '' |
|
2116
|
4 |
98 |
unless is_valid_400_year_cycle($four_hundred_year_cycle_00) |
|
2118
|
1 |
97 |
unless ref \$day_number_in_400_year_cycle_00 eq 'SCALAR' |
|
2119
|
1 |
96 |
unless $day_number_in_400_year_cycle_00 ne '' |
|
2120
|
2 |
93 |
unless $day_number_in_400_year_cycle_00 =~ /^(\d{1,6})$/ and $1 > 0 and $1 <= $NUMBER_OF_DAYS_IN_400_YEAR_CYCLE |
|
2128
|
30642 |
93 |
if ($current_day_count_00 > $days_in_this_year_00) { } |
|
2179
|
2 |
439 |
unless @_ > 0 and @_ < 5 |
|
2185
|
382 |
57 |
if (@_ == 1 or @_ == 2) { } |
|
2187
|
1 |
381 |
unless ref \$_[0] eq 'SCALAR' |
|
2188
|
1 |
380 |
unless $_[0] ne '' |
|
2189
|
14 |
366 |
unless date_only_parse($_[0]) |
|
2191
|
360 |
6 |
if (@_ == 1) { } |
|
2197
|
1 |
5 |
unless ref \$_[1] eq 'SCALAR' |
|
2198
|
1 |
4 |
unless $_[1] ne '' |
|
2206
|
2 |
55 |
unless ref \$_[0] eq 'SCALAR' |
|
2207
|
2 |
53 |
unless $_[0] ne '' |
|
2208
|
6 |
47 |
unless is_valid_month($_[0]) |
|
2210
|
2 |
45 |
unless ref \$_[2] eq 'SCALAR' |
|
2211
|
2 |
43 |
unless $_[2] ne '' |
|
2212
|
1 |
42 |
unless is_valid_year($_[2]) |
|
2214
|
2 |
40 |
unless ref \$_[1] eq 'SCALAR' |
|
2215
|
2 |
38 |
unless $_[1] ne '' |
|
2216
|
2 |
36 |
unless is_valid_day_of_month($_[0], $_[1], $_[2]) |
|
2220
|
12 |
24 |
if (@_ == 4) |
|
2222
|
1 |
11 |
unless ref \$_[3] eq 'SCALAR' |
|
2223
|
1 |
10 |
unless $_[3] ne '' |
|
2232
|
384 |
14 |
if (uc $format_selection_00 eq '') { } |
|
|
6 |
8 |
elsif (uc $format_selection_00 eq 'A') { } |
|
|
1 |
7 |
elsif (uc $format_selection_00 eq 'B') { } |
|
|
1 |
6 |
elsif (uc $format_selection_00 eq 'C') { } |
|
|
5 |
1 |
elsif (uc $format_selection_00 eq 'D') { } |
|
2296
|
2 |
220831 |
unless @_ == $num_input_params_28 |
|
2298
|
1 |
220830 |
unless ref \$month_input_09 eq 'SCALAR' |
|
2299
|
1 |
220829 |
unless $month_input_09 ne '' |
|
2300
|
4 |
220825 |
unless is_valid_month($month_input_09) |
|
2302
|
1 |
220824 |
unless ref \$year_in_05 eq 'SCALAR' |
|
2303
|
1 |
220823 |
unless $year_in_05 ne '' |
|
2304
|
1 |
220822 |
unless is_valid_year($year_in_05) |
|
2310
|
167262 |
53560 |
if (not is_leap_year($year_in_05)) { } |
|
2316
|
13943 |
153319 |
if ($_ == 2) |
|
2317
|
13938 |
139381 |
if ($_ == 3) |
|
2318
|
13938 |
125443 |
if ($_ == 4) |
|
2319
|
13938 |
111505 |
if ($_ == 5) |
|
2320
|
13938 |
97567 |
if ($_ == 6) |
|
2321
|
13938 |
83629 |
if ($_ == 7) |
|
2322
|
13938 |
69691 |
if ($_ == 8) |
|
2323
|
13938 |
55753 |
if ($_ == 9) |
|
2324
|
13938 |
41815 |
if ($_ == 10) |
|
2325
|
13938 |
27877 |
if ($_ == 11) |
|
2326
|
13938 |
13939 |
if ($_ == 12) |
|
2336
|
4464 |
49096 |
if ($_ == 2) |
|
2337
|
4463 |
44633 |
if ($_ == 3) |
|
2338
|
4463 |
40170 |
if ($_ == 4) |
|
2339
|
4463 |
35707 |
if ($_ == 5) |
|
2340
|
4463 |
31244 |
if ($_ == 6) |
|
2341
|
4463 |
26781 |
if ($_ == 7) |
|
2342
|
4464 |
22317 |
if ($_ == 8) |
|
2343
|
4463 |
17854 |
if ($_ == 9) |
|
2344
|
4463 |
13391 |
if ($_ == 10) |
|
2345
|
4463 |
8928 |
if ($_ == 11) |
|
2346
|
4464 |
4464 |
if ($_ == 12) |
|
2356
|
31650 |
189172 |
if ($first_of_month_day_of_week_00 == 0) |
|
2388
|
2 |
15241 |
unless @_ == 1 or @_ == 3 |
|
2393
|
219 |
15022 |
if (@_ == 1) { } |
|
2395
|
2 |
217 |
unless ref \$_[0] eq 'SCALAR' |
|
2396
|
1 |
216 |
unless $_[0] ne '' |
|
2399
|
215 |
1 |
if ($day_of_week_12) { } |
|
2411
|
1 |
15021 |
unless ref \$_[0] eq 'SCALAR' |
|
2412
|
1 |
15020 |
unless $_[0] ne '' |
|
2413
|
3 |
15017 |
unless is_valid_month($_[0]) |
|
2415
|
1 |
15016 |
unless ref \$_[2] eq 'SCALAR' |
|
2416
|
1 |
15015 |
unless $_[2] ne '' |
|
2417
|
1 |
15014 |
unless is_valid_year($_[2]) |
|
2419
|
1 |
15013 |
unless ref \$_[1] eq 'SCALAR' |
|
2420
|
1 |
15012 |
unless $_[1] ne '' |
|
2421
|
16 |
14996 |
unless is_valid_day_of_month($_[0], $_[1], $_[2]) |
|
2437
|
1440 |
13556 |
if ($first_of_month_day_of_week_02 == 0) |
|
2463
|
28 |
12 |
unless @_ == 1 |
|
2465
|
2 |
10 |
unless ref \$_[0] eq 'SCALAR' |
|
2466
|
1 |
9 |
unless $_[0] ne '' |
|
2470
|
1 |
8 |
if ($month_input_15 eq '') { } |
|
2498
|
28 |
12 |
unless @_ == 1 |
|
2500
|
2 |
10 |
unless ref \$_[0] eq 'SCALAR' |
|
2501
|
1 |
9 |
unless $_[0] ne '' |
|
2505
|
1 |
8 |
if (not defined $day_of_month_18) { } |
|
2533
|
28 |
12 |
unless @_ == 1 |
|
2535
|
2 |
10 |
unless ref \$_[0] eq 'SCALAR' |
|
2536
|
1 |
9 |
unless $_[0] ne '' |
|
2540
|
1 |
8 |
if (not defined $year_14) { } |
|
2579
|
8 |
22 |
unless @_ == $num_input_params_30 |
|
2581
|
1 |
21 |
unless ref \$date_one_03 eq 'SCALAR' |
|
2582
|
1 |
20 |
unless ref \$date_two_03 eq 'SCALAR' |
|
2584
|
1 |
19 |
unless $date_one_03 ne '' |
|
2585
|
1 |
18 |
unless $date_two_03 ne '' |
|
2587
|
1 |
17 |
unless date_only_parse($date_one_03) |
|
2588
|
1 |
16 |
unless date_only_parse($date_two_03) |
|
2594
|
4 |
12 |
if ($date1_year_num_06 == $date2_year_num_06) { } |
|
|
5 |
7 |
elsif ($date1_year_num_06 > $date2_year_num_06) { } |
|
2637
|
8 |
49 |
unless @_ == $num_input_params_31 |
|
2639
|
1 |
48 |
unless ref \$date_one_04 eq 'SCALAR' |
|
2640
|
1 |
47 |
unless ref \$date_two_04 eq 'SCALAR' |
|
2642
|
1 |
46 |
unless $date_one_04 ne '' |
|
2643
|
1 |
45 |
unless $date_two_04 ne '' |
|
2645
|
1 |
44 |
unless date_only_parse($date_one_04) |
|
2646
|
1 |
43 |
unless date_only_parse($date_two_04) |
|
2653
|
3 |
40 |
if ($date1_year_num_07 == $date2_year_num_07) { } |
|
2668
|
21 |
22 |
if (is_leap_year($date1_year_num_07)) |
|
2674
|
19 |
24 |
if (is_leap_year($date2_year_num_07)) |
|
2680
|
18 |
25 |
if ($year_difference_00 > 0) { } |
|
|
22 |
3 |
elsif ($year_difference_00 < 0) { } |
|
2682
|
1 |
17 |
if ($date1_month_num_07 < $date2_month_num_07) { } |
|
|
3 |
16 |
elsif ($date1_month_num_07 == $date2_month_num_07 and $date1_day_of_month_07 < $date2_day_of_month_07) { } |
|
2703
|
4 |
14 |
if ($date1_is_leap_year eq 'no' and $date2_is_leap_year eq 'yes') { } |
|
|
4 |
16 |
elsif ($date1_is_leap_year eq 'yes' and $date2_is_leap_year eq 'no') { } |
|
2705
|
1 |
3 |
if ($date1_day_of_month_07 == 28 and $date2_day_of_month_07 == 29) |
|
2712
|
1 |
3 |
if ($date1_day_of_month_07 == 28 and $date2_day_of_month_07 == 28) |
|
2720
|
3 |
19 |
if ($date1_month_num_07 > $date2_month_num_07) { } |
|
|
5 |
15 |
elsif ($date1_month_num_07 == $date2_month_num_07 and $date1_day_of_month_07 > $date2_day_of_month_07) { } |
|
2741
|
5 |
17 |
if ($date1_is_leap_year eq 'no' and $date2_is_leap_year eq 'yes') { } |
|
|
7 |
16 |
elsif ($date1_is_leap_year eq 'yes' and $date2_is_leap_year eq 'no') { } |
|
2743
|
1 |
4 |
if ($date1_day_of_month_07 == 28 and $date2_day_of_month_07 == 28) |
|
2750
|
1 |
6 |
if ($date1_day_of_month_07 == 29 and $date2_day_of_month_07 == 28) |
|
2758
|
10 |
33 |
if ($year_difference_00 == 0) |
|
2794
|
3 |
31 |
unless @_ == $num_input_params_32 |
|
2796
|
1 |
30 |
unless ref \$date_in_03 eq 'SCALAR' |
|
2797
|
1 |
29 |
unless $date_in_03 ne '' |
|
2798
|
2 |
27 |
unless date_only_parse($date_in_03) |
|
2800
|
1 |
26 |
unless ref \$date_delta_years_00 eq 'SCALAR' |
|
2801
|
1 |
25 |
unless $date_delta_years_00 ne '' |
|
2802
|
1 |
24 |
unless $date_delta_years_00 =~ /^\-{0,1}\d+$/ |
|
2805
|
1 |
23 |
if ($date_delta_years_00 == 0) |
|
2818
|
14 |
9 |
if (not is_leap_year($offset_year_01)) { } |
|
|
5 |
4 |
elsif (not is_leap_year($date1_year_num_08)) { } |
|
2820
|
2 |
12 |
if ($date1_month_num_08 == 2 and $date1_day_of_month_08 == 29) |
|
2829
|
2 |
3 |
if ($date1_month_num_08 == 2 and $date1_day_of_month_08 == 28) |
|
2869
|
8 |
65 |
unless @_ == $num_input_params_33 |
|
2871
|
1 |
64 |
unless ref \$date_one_05 eq 'SCALAR' |
|
2872
|
1 |
63 |
unless ref \$date_two_05 eq 'SCALAR' |
|
2874
|
1 |
62 |
unless $date_one_05 ne '' |
|
2875
|
1 |
61 |
unless $date_two_05 ne '' |
|
2877
|
1 |
60 |
unless date_only_parse($date_one_05) |
|
2878
|
1 |
59 |
unless date_only_parse($date_two_05) |
|
2894
|
76 |
63 |
if ($number_of_days_in_range_00 > 0) |
|
2897
|
20 |
56 |
if ($current_dayofweek_00 > 7) |
|
2902
|
42 |
34 |
if ($current_dayofweek_00 < 6) |
|
2907
|
63 |
76 |
if ($number_of_days_in_range_00 < 0) |
|
2910
|
4 |
59 |
if ($current_dayofweek_00 < 1) |
|
2915
|
54 |
9 |
if ($current_dayofweek_00 < 6) |
|
2924
|
32 |
27 |
if ($number_of_days_in_range_00 > 0) { } |
|
|
24 |
3 |
elsif ($number_of_days_in_range_00 < 0) { } |
|
2967
|
6 |
85 |
unless @_ == $num_input_params_36 |
|
2969
|
1 |
84 |
unless ref \$date_in_05 eq 'SCALAR' |
|
2970
|
1 |
83 |
unless $date_in_05 ne '' |
|
2971
|
3 |
80 |
unless date_only_parse($date_in_05) |
|
2973
|
1 |
79 |
unless ref \$date_delta_01 eq 'SCALAR' |
|
2974
|
1 |
78 |
unless $date_delta_01 ne '' |
|
2975
|
1 |
77 |
unless $date_delta_01 =~ /^\-{0,1}\d+$/ |
|
2981
|
1 |
76 |
unless $day_of_week_16 < 6 |
|
2984
|
35 |
41 |
if ($date_delta_01 < 0) |
|
3003
|
15 |
61 |
if ($day_of_week_16 == 1 and $date_delta_01 > 0 or $day_of_week_16 == 5 and $date_delta_01 < 0) { } |
|
|
14 |
47 |
elsif ($day_of_week_16 == 2 and $date_delta_01 > 0 or $day_of_week_16 == 4 and $date_delta_01 < 0) { } |
|
|
14 |
33 |
elsif ($day_of_week_16 == 3 and $date_delta_01 > 0 or $day_of_week_16 == 3 and $date_delta_01 < 0) { } |
|
|
14 |
19 |
elsif ($day_of_week_16 == 4 and $date_delta_01 > 0 or $day_of_week_16 == 2 and $date_delta_01 < 0) { } |
|
|
14 |
5 |
elsif ($day_of_week_16 == 5 and $date_delta_01 > 0 or $day_of_week_16 == 1 and $date_delta_01 < 0) { } |
|
3012
|
10 |
5 |
if ($_ <= 2) |
|
3026
|
10 |
4 |
if ($_ <= 2) |
|
3027
|
2 |
2 |
if ($_ == 3) |
|
3041
|
10 |
4 |
if ($_ <= 2) |
|
3055
|
6 |
8 |
if ($_ < 2) |
|
3056
|
4 |
4 |
if ($_ == 2) |
|
3070
|
2 |
12 |
if ($_ == 0) |
|
3071
|
4 |
8 |
if ($_ == 1) |
|
3072
|
4 |
4 |
if ($_ == 2) |
|
3087
|
0 |
76 |
unless $day_of_week_17 < 6 |