| line |
true |
false |
branch |
|
37
|
1 |
3 |
unless defined $time |
|
50
|
0 |
3 |
unless defined $_ |
|
59
|
3 |
0 |
if ($day, $mon, $yr, $hr, $min, $sec, $tz) = m[^\s*
(\d\d?) # day
(?:\s+|[-/])
(\w+) # month
(?:\s+|[-/])
(\d+) # year
(?:
(?:\s+|:) # separator before clock
(\d\d?):(\d\d) # hour:min
(?::(\d\d))? # optional seconds
)? # optional clock
\s*
([-+]?\d{2,4}|GMT|gmt)? # timezone
\s*$
]x |
|
80
|
0 |
0 |
if ($mon, $day, $hr, $min, $sec, $tz, $yr) = /^\s* # allow intial whitespace
(\w{1,3}) # month
\s+
(\d\d?) # day
\s+
(\d\d?):(\d\d) # hour:min
(?::(\d\d))? # optional seconds
\s+
(?:(GMT|gmt)\s+)? # optional GMT timezone
(\d+) # year
\s*$ # allow trailing whitespace
/x |
|
96
|
0 |
0 |
if ($mon, $day, $yr, $hr, $min, $sec) = /^\s*
(\w{3}) # month
\s+
(\d\d?) # day
\s+
(?:
(\d\d\d\d) | # year
(\d{1,2}):(\d{2}) # hour:min
(?::(\d\d))? # optional seconds
)
\s*$
/x |
|
112
|
0 |
0 |
if ($yr, $mon, $day, $hr, $min, $sec, $tz) = m[^\s*
(\d{4}) # year
[-/]?
(\d\d?) # numerical month
[-/]?
(\d\d?) # day
(?:
(?:\s+|:|T|-) # separator before clock
(\d\d?):?(\d\d) # hour:min
(?::?(\d\d))? # optional seconds
)? # optional clock
\s*
([-+]?\d\d?:?(:?\d\d)?
|Z|z)? # timezone (Z is "zero meridian", i.e. GMT)
\s*$
]x |
|
132
|
0 |
0 |
if ($mon, $day, $yr, $hr, $min, $aorp) = /^\s*
(\d{2}) # numerical month
-
(\d{2}) # day
-
(\d{2}) # year
\s+
(\d\d?):(\d\d)([apAP][mM]) # hour:min AM or PM
\s*$
/x |
|
150
|
0 |
3 |
if ($mon =~ /^\d+$/) { } |
|
152
|
0 |
0 |
if $mon < 1 or $mon > 12 |
|
156
|
0 |
3 |
unless exists $Apache::ASP::Date::MoY{$mon} |
|
162
|
0 |
3 |
unless (defined $yr) |
|
164
|
0 |
0 |
if $mon > $current_month |
|
168
|
0 |
3 |
if $yr > 99 and $yr < 1900 |
|
169
|
0 |
3 |
if $yr < 50 |
|
170
|
3 |
0 |
if $yr >= 1900 |
|
177
|
0 |
3 |
if $yr > 138 |
|
178
|
0 |
3 |
if $yr < 70 |
|
181
|
0 |
3 |
if ($aorp) |
|
183
|
0 |
0 |
if $hr == 12 and $aorp eq 'AM' |
|
184
|
0 |
0 |
if $aorp eq 'PM' and $hr != 12 |
|
188
|
0 |
9 |
unless defined $_ |
|
191
|
0 |
3 |
unless defined $tz |
|
192
|
0 |
3 |
unless defined $tz |
|
196
|
0 |
3 |
if ($tz =~ /^([-+])?(\d\d?):?(\d\d)?$/) |
|
198
|
0 |
0 |
if $3 |
|
199
|
0 |
0 |
if $1 and $1 ne '-' |
|
212
|
0 |
0 |
unless defined $time |
|
222
|
0 |
0 |
unless defined $time |