| line |
true |
false |
branch |
|
158
|
1 |
55 |
unless (defined $str) |
|
176
|
25 |
30 |
if ($str =~ /$rule_1/) |
|
178
|
21 |
4 |
if ($2 or $3) |
|
185
|
4 |
21 |
if ($5 or $6) |
|
191
|
2 |
2 |
if ($month > 12) |
|
211
|
18 |
37 |
if (not $month and $str =~ /$rule_2/) |
|
218
|
4 |
14 |
if ($1) { } |
|
226
|
14 |
0 |
unless ($year) |
|
236
|
7 |
48 |
if (not $month and $str =~ /(.*)($MONTH_REGEXP)(.*)/) |
|
244
|
4 |
3 |
if ($before eq '') { } |
|
|
3 |
0 |
elsif ($before and $after) { } |
|
245
|
2 |
2 |
if ($after =~ /(\d{2})$sep(\d{2,4})/) |
|
257
|
1 |
2 |
if ($2 ne ":") |
|
265
|
17 |
38 |
unless ($year) |
|
270
|
2 |
53 |
if (not $day and $str =~ /\b(\d{1,2})(st|nd|rd|th)/) |
|
285
|
37 |
18 |
if ($str =~ /$rule_3/) |
|
295
|
3 |
34 |
if ($ampm eq "pm") |
|
300
|
3 |
1 |
if ($ampm and $hour == 24 || $hour == 12) |
|
309
|
4 |
14 |
unless ($has_time or $has_date) |
|
311
|
1 |
3 |
if ($str =~ /(\d{4})(\d{2})(\d{2})T(\d\d)(\d\d)(\d\d)Z/) { } |
|
328
|
1 |
51 |
unless ($month) |
|
333
|
1 |
51 |
unless ($day) |
|
338
|
4 |
48 |
unless ($year) |
|
343
|
8 |
44 |
if ($year < 100) |
|
363
|
0 |
52 |
if ($err and $err =~ /Undefined subroutine/) |
|
368
|
1 |
51 |
if ($ms) |
|
391
|
22 |
30 |
if (defined $ret and $str =~ /$tz_rule/) |
|
395
|
16 |
6 |
if ($6 or $7) { } |
|
400
|
2 |
14 |
if (in_array($tz_str, ("AM", "PM", "am", "pm"))) |
|
401
|
1 |
1 |
if ($str =~ /$tz_str ([A-Z]{1,4})\b/) |
|
407
|
15 |
1 |
unless (uc($tz_str) =~ /^(AM|PM)$/) |
|
419
|
5 |
1 |
if ($3 eq "-") |
|
426
|
21 |
1 |
if (defined $str_offset) |
|
432
|
31 |
21 |
if (defined $ret and not defined $tz_offset_seconds) |
|
442
|
0 |
52 |
if ($debug) |
|
461
|
31 |
0 |
if (defined $LOCAL_TZ_OFFSET) |
|
475
|
0 |
0 |
if ($USE_TZ_CACHE and $x->{$cache_key}) |
|
485
|
0 |
0 |
if ($USE_TZ_CACHE) |