| line |
true |
false |
branch |
|
39
|
0 |
407 |
if $Date::PeriodParser::DEBUG |
|
52
|
3 |
168 |
unless $_ |
|
65
|
4 |
164 |
if /^now$/ |
|
68
|
2 |
162 |
if ($_ eq '' and $vague) |
|
74
|
6 |
156 |
if (/(this|last|next) week/) |
|
77
|
2 |
4 |
if ($modifier eq 'last') { } |
|
|
2 |
2 |
elsif ($modifier eq 'next') { } |
|
95
|
6 |
150 |
if (/(this|last|next) month/) |
|
100
|
2 |
4 |
if ($modifier eq 'last') { } |
|
|
2 |
2 |
elsif ($modifier eq 'next') { } |
|
115
|
15 |
135 |
if (/\A (\w+) \s+ (\d{4}) \z/msx) |
|
119
|
15 |
0 |
if ($month = Decode_Month($month)) |
|
128
|
5 |
99 |
if (/(the day (before|after) )?(yesterday|today|tomorrow)/ or /^this (morning|afternoon|evening|lunchtime)/ or /^at lunchtime$/ or /^(in the) (morning|afternoon|evening)/ or /^(last |to)night/) |
|
134
|
13 |
23 |
if (s/the day (before|after)//) |
|
135
|
7 |
6 |
$1 eq 'before' ? : |
|
139
|
11 |
25 |
if (/yesterday/) { } |
|
|
10 |
15 |
elsif (/tomorrow/) { } |
|
144
|
1 |
35 |
if ($h > 12 and /in the morning$/) { } |
|
|
1 |
34 |
elsif ($h > 18 and /in the afternoon$/) { } |
|
|
1 |
33 |
elsif ($h > 21 || $h < 6 and /in the evening$/) { } |
|
153
|
1 |
35 |
if /last/ |
|
166
|
4 |
5 |
if (/^(.*) day(?:s)? ago$/ or /^in (.*) day(?:s)?(?: time)?$/ or /^(.*) day(?:s)? (?:away)?\s*(?:from now)?$/) |
|
174
|
94 |
0 |
if (defined $days) |
|
175
|
90 |
4 |
if /ago/ |
|
185
|
1 |
3 |
if (/^(.*) week(?:s)? ago$/ or /^in (.*) week(?:s)?(?: time)?$/ or /^(.*) week(?:s)? (?:away)?\s*(?:from now)?$/) |
|
194
|
2 |
0 |
if (defined $days) |
|
195
|
1 |
1 |
if /ago/ |
|
205
|
1 |
2 |
if (/^(.*) month(?:s)? ago$/ or /^in (.*) month(?:s)?(?: time)?$/ or /^(.*) month(?:s)? (?:away)?\s*(?:from now)?$/) |
|
213
|
1 |
0 |
if (defined $months) |
|
214
|
0 |
1 |
if /ago/ |
|
224
|
0 |
1 |
if (/^(.*) year(?:s)? ago$/ or /^in (.*) year(?:s)?(?: time)?$/ or /^(.*) year(?:s)? (?:away)?\s*(?:from now)?$/) |
|
232
|
1 |
0 |
if (defined $years) |
|
233
|
1 |
0 |
if /ago/ |
|
244
|
1 |
0 |
if (not $from || $to) |
|
287
|
4 |
136 |
if ($point eq 'night') { } |
|
313
|
27 |
107 |
if (/(morning|afternoon|evening|lunchtime|night)/) { } |
|
324
|
3 |
104 |
if $leeway > 432000 |
|
339
|
18 |
264 |
if (_isnt_dst(${$$pair[0];}) and _is_dst($$pair[1])) |
|
342
|
2 |
280 |
if (_is_dst(${$$pair[0];}) and _isnt_dst($$pair[1])) |
|
403
|
2738 |
30118 |
if ($month > 12) |
|
411
|
6 |
63 |
if ($month < 1) |