| line |
true |
false |
branch |
|
136
|
1 |
37 |
unless (defined $str) |
|
154
|
14 |
23 |
if ($str =~ /$rule_1/) |
|
156
|
13 |
1 |
if ($2 or $3) |
|
163
|
1 |
13 |
if ($5 or $6) |
|
169
|
1 |
0 |
if ($month > 12) |
|
176
|
23 |
14 |
unless ($year) |
|
194
|
13 |
24 |
if (not $month and $str =~ /$rule_2/) |
|
201
|
4 |
9 |
if ($1) { } |
|
216
|
5 |
32 |
if (not $month and $str =~ /(.*)($MONTH_REGEXP)(.*)/) |
|
224
|
2 |
3 |
if ($before eq '') { } |
|
|
3 |
0 |
elsif ($before and $after) { } |
|
238
|
1 |
2 |
if ($2 ne ":") |
|
255
|
27 |
10 |
if ($str =~ /$rule_3/) |
|
266
|
1 |
26 |
if ($ampm eq "pm") |
|
271
|
2 |
0 |
if ($ampm and $hour == 24 || $hour == 12) |
|
280
|
4 |
6 |
unless ($has_time or $has_date) |
|
282
|
1 |
3 |
if ($str =~ /(\d{4})(\d{2})(\d{2})T(\d\d)(\d\d)(\d\d)Z/) { } |
|
310
|
5 |
29 |
if ($year < 100) |
|
321
|
0 |
34 |
unless eval {
do {
$ret = Time::Local::timegm_modern($sec, $min, $hour, $day, $month - 1, $year);
return 1
}
} |
|
327
|
0 |
34 |
if ($err and $err =~ /Undefined subroutine/) |
|
352
|
15 |
19 |
if ($ret and $str =~ /$tz_rule/) { } |
|
|
17 |
2 |
elsif ($ret) { } |
|
356
|
10 |
5 |
if ($6 or $7) { } |
|
372
|
4 |
1 |
if ($3 eq "-") |
|
391
|
0 |
34 |
if ($debug) |
|
417
|
17 |
0 |
if (defined $LOCAL_TZ_OFFSET) |
|
424
|
0 |
0 |
if ($USE_TZ_CACHE and $x->{$cache_key}) |
|
434
|
0 |
0 |
if ($USE_TZ_CACHE) |