| line |
true |
false |
branch |
|
17
|
28 |
50 |
if defined $_ |
|
19
|
1 |
77 |
unless defined $value |
|
23
|
0 |
77 |
unless my($y, $m, $d) = check_iso_format($value) |
|
26
|
27 |
50 |
if ($times and $$times[0]) |
|
28
|
18 |
9 |
unless $valid |
|
32
|
33 |
20 |
if (check_year($y) and check_month($m) and check_day($d, $m, $y)) |
|
47
|
1 |
15 |
unless defined $value |
|
51
|
0 |
15 |
unless my($y, $m, $d) = check_american_format($value) |
|
54
|
6 |
3 |
if (check_year($y) and check_month($m) and check_day($d, $m, $y)) |
|
69
|
1 |
20 |
unless defined $value |
|
75
|
11 |
9 |
unless (defined $y) |
|
79
|
11 |
3 |
if (check_year($y) and check_month($m) and check_day($d, $m, $y)) |
|
98
|
9 |
54 |
if ($today[$i] > $value[$i]) |
|
102
|
9 |
45 |
if ($today[$i] < $value[$i]) |
|
107
|
9 |
18 |
grep({/$time/;} @$times) ? : |
|
119
|
1 |
91 |
unless defined $date |
|
121
|
14 |
77 |
unless my($y, $m, $d) = $date =~ qr/^(\d{1,4})-(\d{1,2})-(\d{1,2})$/ |
|
132
|
1 |
38 |
unless defined $date |
|
134
|
19 |
19 |
unless my($m, $d, $y) = $date =~ qr"^(\d{1,2})(?:-|/)(\d{1,2})(?:-|/)(\d{4})$" |
|
144
|
19 |
79 |
unless defined $y |
|
145
|
77 |
2 |
if $y =~ qr/^\d{4}$/ |
|
152
|
1 |
83 |
unless defined $m |
|
153
|
75 |
6 |
if $m =~ qr/^\d{1,2}$/ and $m > 0 and $m < 13 |
|
162
|
2 |
102 |
unless defined $d and defined $m |
|
164
|
1 |
101 |
unless $m != 2 or defined $y |
|
166
|
16 |
83 |
if not $d =~ qr/^\d{1,2}$/ or $d < 1 or $d > 31 |
|
169
|
26 |
57 |
if ($m == 4 or $m == 6 or $m == 9 or $m == 11) { } |
|
|
27 |
30 |
elsif ($m != 2) { } |
|
|
15 |
15 |
elsif (not leap_year($y)) { } |
|
170
|
16 |
10 |
if $d <= 30 |
|
178
|
9 |
6 |
if $d <= 28 |
|
182
|
11 |
4 |
if $d <= 29 |
|
189
|
13 |
17 |
if $y % 4 |
|
190
|
8 |
9 |
unless $y % 400 |
|
191
|
2 |
7 |
unless $y % 100 |