| line |
true |
false |
branch |
|
13
|
137 |
6217 |
if ($self->{'lang'} and not ref $self->{'lang'} eq 'ARRAY')
|
|
39
|
417 |
11004 |
if ($self->{'lang'})
|
|
42
|
278 |
139 |
unless (&any(sub {
|
|
44
|
0 |
278 |
if $ENV{'DFF_DEBUG'}
|
|
48
|
0 |
11143 |
if $ENV{'DFF_DEBUG'}
|
|
50
|
0 |
11143 |
if $ENV{'DFF_DEBUG'}
|
|
52
|
0 |
11143 |
if $ENV{'DFF_DEBUG'}
|
|
54
|
0 |
11143 |
if $ENV{'DFF_DEBUG'}
|
|
56
|
0 |
11143 |
if $ENV{'DFF_DEBUG'}
|
|
58
|
0 |
11143 |
if $ENV{'DFF_DEBUG'}
|
|
60
|
0 |
11143 |
if $ENV{'DFF_DEBUG'}
|
|
62
|
0 |
11143 |
if $ENV{'DFF_DEBUG'}
|
|
64
|
0 |
11143 |
if $ENV{'DFF_DEBUG'}
|
|
66
|
0 |
11143 |
if $ENV{'DFF_DEBUG'}
|
|
77
|
4 |
93474 |
if ($date =~ /$orig_tz/mix)
|
|
106
|
0 |
44572 |
unless exists $instructions->{$keyword}
|
|
111
|
101 |
44471 |
if ($date =~ /$rx/mix)
|
|
114
|
24 |
77 |
if ($has_units) { }
|
|
125
|
29 |
1126 |
if ($date =~ /$day/mix)
|
|
134
|
48 |
876 |
if ($date =~ /$month/mix)
|
|
141
|
0 |
101 |
if $ENV{'DFF_DEBUG'}
|
|
146
|
0 |
101 |
if $ENV{'DFF_DEBUG'}
|
|
159
|
21 |
3 |
if (my($amount, $unit) = $date =~ /(\d+)\s+([^\s]+)/mx)
|
|
161
|
0 |
21 |
if $ENV{'DFF_DEBUG'}
|
|
162
|
21 |
0 |
if (exists $strings{$unit})
|
|
166
|
13 |
8 |
if ($direction eq 'past')
|
|
170
|
8 |
13 |
if ($direction eq 'future')
|
|
176
|
0 |
21 |
if ($ENV{'DFF_DEBUG'})
|
|
197
|
14 |
15 |
if ($direction eq 'past')
|
|
200
|
12 |
2 |
if ($amount < 1)
|
|
201
|
0 |
14 |
if $ENV{'DFF_DEBUG'}
|
|
207
|
15 |
14 |
if ($direction eq 'future')
|
|
210
|
4 |
11 |
if ($amount < 1)
|
|
211
|
0 |
15 |
if $ENV{'DFF_DEBUG'}
|
|
231
|
0 |
48 |
if $ENV{'DFF_DEBUG'}
|
|
234
|
15 |
33 |
if ($direction eq 'past' and $date_mon >= $mon)
|
|
238
|
11 |
37 |
if ($direction eq 'future' and $date_mon <= $mon)
|
|
243
|
0 |
48 |
if $ENV{'DFF_DEBUG'}
|
|
256
|
45 |
96574 |
if ($date =~ /\Q$key\E/mix)
|
|
266
|
8 |
416229 |
if (index(lc $date, lc $key) >= 0)
|
|
283
|
2408 |
131884 |
if ($date =~ /\b$month_name\b/mix) { }
|
|
|
11 |
131873 |
elsif ($date =~ /\d$month_name/mix) { }
|
|
|
4 |
131869 |
elsif ($date =~ /\b$month_name\d.*\b/mix) { }
|
|
320
|
16 |
135992 |
if (lc $date eq lc $day_name or index(lc $date, lc($day_name) . ' at') >= 0)
|
|
325
|
2 |
14 |
if ($date_dow == $dt->dow) { }
|
|
|
12 |
2 |
elsif ($date_dow > $dt->dow) { }
|
|
347
|
233 |
135759 |
if ($date =~ /\b$day_name\b/mix)
|
|
366
|
29 |
209 |
if (lc $key eq lc $day)
|
|
382
|
34 |
75070 |
if ($date =~ /$hour/mix)
|
|
399
|
162 |
25931 |
if ($date =~ /$rs/mix)
|
|
401
|
0 |
162 |
if $ENV{'DFF_DEBUG'}
|