| line |
true |
false |
branch |
|
615
|
6 |
43 |
if $m == 2 and leap_year($y) |
|
640
|
0 |
41 |
unless @_ == 2 |
|
643
|
0 |
41 |
unless $pivot_year >= 0 and $pivot_year <= 9899 |
|
652
|
25 |
16 |
if ($yy < $pivot_offset) |
|
659
|
0 |
22 |
unless @_ == 2 |
|
662
|
0 |
22 |
unless $hour >= 1 and $hour <= 12 |
|
665
|
0 |
22 |
unless $meridiem eq "AM" or $meridiem eq "PM" |
|
668
|
2 |
5 |
$hour == 12 ? : |
|
|
4 |
11 |
$hour == 12 ? : |
|
|
7 |
15 |
$meridiem eq 'AM' ? : |
|
673
|
0 |
237 |
unless @_ == 1 |
|
677
|
0 |
237 |
unless my($sign, $h, $m) = $string =~ /^([+-])([0-9]{1,2})([0-9]{2})?$/ |
|
681
|
1 |
236 |
unless valid_hm($h, $m) |
|
685
|
72 |
164 |
if ($sign eq "-") |
|
723
|
2 |
727 |
unless @_ & 1 |
|
730
|
717 |
10 |
if (exists $p{'format'}) |
|
734
|
1 |
716 |
unless defined $regexp |
|
738
|
8 |
718 |
if (exists $p{'pivot_year'}) |
|
741
|
2 |
6 |
unless $pivot_year >= 0 and $pivot_year <= 9899 |
|
745
|
2 |
722 |
if (%p) |
|
749
|
2 |
720 |
unless defined $string and $string =~ /$regexp/x |
|
754
|
248 |
472 |
if (exists $r{'month'} and not $r{'month'} =~ /^[0-9]/) |
|
758
|
720 |
0 |
if (exists $r{'year'}) |
|
760
|
41 |
679 |
if (length $r{'year'} == 2) |
|
764
|
6 |
714 |
unless valid_ymd($r{'year'}, $r{'month'} // 1, $r{'day'} // 1) |
|
768
|
598 |
116 |
if (exists $r{'hour'}) |
|
770
|
22 |
576 |
if (exists $r{'meridiem'}) |
|
771
|
0 |
22 |
unless $r{'hour'} >= 1 and $r{'hour'} <= 12 |
|
777
|
6 |
592 |
unless valid_hms($r{'hour'}, $r{'minute'} // 0, $r{'second'} // 0) |
|
780
|
238 |
354 |
if (exists $r{'fraction'}) |
|
784
|
220 |
18 |
if (exists $r{'second'}) { } |
|
|
10 |
8 |
elsif (exists $r{'minute'}) { } |
|
793
|
6 |
4 |
if ($nsec != 0) |
|
805
|
2 |
6 |
if ($sec != 0 or $nsec != 0) |
|
807
|
1 |
1 |
if ($nsec != 0) |
|
814
|
237 |
355 |
if (exists $r{'tz_offset'}) |
|
818
|
314 |
277 |
if (exists $r{'tz_utc'}) |
|
823
|
2 |
705 |
if ($regexp == $RFC2616_Rx and not $r{'tz_utc'}) |
|
832
|
0 |
707 |
wantarray ? : |
|
836
|
2 |
138 |
unless @_ & 1 |
|
841
|
52 |
86 |
if (exists $p{'precision'}) |
|
843
|
2 |
50 |
unless $precision >= 0 and $precision <= 9 |
|
850
|
2 |
134 |
unless exists $r->{'tz_offset'} |
|
858
|
58 |
76 |
if ($M < 3) |
|
866
|
50 |
84 |
if (exists $r->{'nanosecond'}) |
|
881
|
25 |
14 |
if ($offset == 0) { } |
|
885
|
6 |
8 |
$offset < 0 ? : |
|
894
|
31 |
8 |
if ($offset == 0) { } |
|
898
|
3 |
5 |
$offset < 0 ? : |
|
967
|
2 |
2 |
if ($time < 2524608000) { } |
|
1059
|
2 |
102 |
unless @_ & 1 |
|
1062
|
2 |
100 |
unless $time >= '-62135596800' and $time < '253402300800' |
|
1067
|
90 |
10 |
if (exists $p{'format'}) |
|
1071
|
1 |
89 |
unless defined $formatter |
|
1077
|
26 |
73 |
if (exists $p{'offset'}) |
|
1079
|
2 |
24 |
unless $offset >= -1439 and $offset <= 1439 |
|
1083
|
42 |
55 |
if (exists $p{'precision'}) |
|
1085
|
2 |
40 |
unless $precision >= 0 and $precision <= 9 |
|
1089
|
17 |
78 |
if (exists $p{'nanosecond'}) |
|
1091
|
2 |
15 |
unless $nanosecond >= 0 and $nanosecond <= 999999999 |
|
1095
|
2 |
91 |
if (%p) |
|
1099
|
29 |
62 |
if (not defined $nanosecond and int $time != $time) |
|
1108
|
4 |
25 |
if ($nanosecond >= 1000000000) |
|
1114
|
24 |
67 |
if ($offset) |
|
1117
|
2 |
22 |
unless $local_time >= '-62135596800' and $local_time <= '253402300799' |
|
1122
|
44 |
45 |
if (defined $nanosecond or defined $precision) |
|
1124
|
4 |
40 |
unless (defined $precision) |
|
1125
|
3 |
1 |
if ($nanosecond == 0) { } |
|
|
1 |
0 |
elsif ($nanosecond % 1000000 == 0) { } |
|
|
0 |
0 |
elsif ($nanosecond % 1000 == 0) { } |
|
1139
|
37 |
7 |
if ($precision != 0) |