line |
true |
false |
branch |
16
|
4 |
12 |
$period eq 'min' ? : |
28
|
18 |
1 |
length $_ > 3 ? : |
48
|
29 |
0 |
defined $now ? : |
62
|
24 |
1 |
if ($self->_parse_spec_base) |
67
|
1 |
24 |
if /\G\S/cg |
72
|
24 |
5 |
unless $@ |
80
|
9 |
16 |
if ($self->_parse_date) { } |
|
15 |
1 |
elsif ($self->_parse_time) { } |
85
|
6 |
9 |
unless (/\G\s+/cg and $self->_parse_date) |
90
|
3 |
3 |
if ($base_hour > $$self{'hour'} or $base_hour == $$self{'hour'} and $base_min >= $$self{'min'}) |
113
|
13 |
28 |
if (/\G($month_re)\s+(\d\d?)(?:(?:\s+|\s*,\s*)(\d\d(?:\d\d)?))?/cog) { } |
|
0 |
28 |
elsif (/\G(?:next\s+)?($wday_re)/cgio) { } |
|
0 |
28 |
elsif (/\Gtoday\b/cig) { } |
|
0 |
28 |
elsif (/\Gtomorrow\b/cig) { } |
|
0 |
28 |
elsif (/\G(\d\d?)\.(\d\d?)\.(\d\d(?:\d\d)?)\b/cg) { } |
|
0 |
28 |
elsif (/\G(\d\d(?:\d\d)?)-(\d\d?)-(\d\d?)\b/cg) { } |
|
9 |
19 |
elsif (/\Gnow\b/cig) { } |
|
0 |
19 |
elsif (/\G(\d\d?)\s+($month_re)(?:\s+(\d\d(?:\d\d)?))?/cog) { } |
|
0 |
19 |
elsif (m[\G(\d\d?)/(\d\d?)/(\d\d(?:\d\d)?)\b]cg) { } |
|
0 |
19 |
elsif (/\G(\d\d?)(\d\d)(\d\d(?:\d\d)?)\b/cg) { } |
|
0 |
19 |
elsif (/\Gnext\s+($period_re)\b/cgio) { } |
124
|
0 |
0 |
if $delta <= 0 |
179
|
0 |
13 |
if (defined(my $year = $$self{'year'})) { } |
180
|
0 |
0 |
if (length $year <= 2) { } |
181
|
0 |
0 |
$year < 70 ? : |
191
|
7 |
6 |
if $now_month > $$self{'month'} or $now_month == $$self{'month'} and $now_day > $$self{'day'} |
211
|
0 |
16 |
if (/\G(\d\d)(\d\d)\b/cg) { } |
|
15 |
1 |
elsif (/\G(([012]?[0-9])(?:[:'h,.](\d\d))?(?:\s*([ap]m))?\b)/cig) { } |
|
0 |
1 |
elsif (/\Gnoon\b/cg) { } |
|
0 |
1 |
elsif (/\Gmidnight\b/cg) { } |
|
0 |
1 |
elsif (/\Gteatime\b/cg) { } |
221
|
0 |
15 |
if (defined $4) |
223
|
0 |
0 |
if ($hour > 11) |
224
|
0 |
0 |
if $hour > 12 |
227
|
0 |
0 |
if lc $4 eq 'pm' |
244
|
1 |
14 |
if (/\G\s*(utc)\b/cig) |
255
|
16 |
8 |
if (/\G([+-])\s*(\d+)\s*($period_re)s?\b/cig) |
257
|
16 |
0 |
$1 eq '+' ? : |