| line |
true |
false |
branch |
|
13
|
137 |
6221 |
if ($self->{'lang'} and not ref $self->{'lang'} eq 'ARRAY')
|
|
39
|
417 |
11016 |
if ($self->{'lang'})
|
|
42
|
278 |
139 |
unless (&any(sub {
|
|
44
|
0 |
278 |
if $ENV{'DFF_DEBUG'}
|
|
48
|
0 |
11155 |
if $ENV{'DFF_DEBUG'}
|
|
50
|
0 |
11155 |
if $ENV{'DFF_DEBUG'}
|
|
52
|
0 |
11155 |
if $ENV{'DFF_DEBUG'}
|
|
54
|
0 |
11155 |
if $ENV{'DFF_DEBUG'}
|
|
56
|
0 |
11155 |
if $ENV{'DFF_DEBUG'}
|
|
58
|
0 |
11155 |
if $ENV{'DFF_DEBUG'}
|
|
60
|
0 |
11155 |
if $ENV{'DFF_DEBUG'}
|
|
62
|
0 |
11155 |
if $ENV{'DFF_DEBUG'}
|
|
64
|
0 |
11155 |
if $ENV{'DFF_DEBUG'}
|
|
66
|
0 |
11155 |
if $ENV{'DFF_DEBUG'}
|
|
77
|
5 |
93568 |
if ($date =~ /$orig_tz/mix)
|
|
107
|
0 |
44620 |
unless exists $instructions->{$keyword}
|
|
112
|
101 |
44519 |
if ($date =~ /$rx/mix)
|
|
115
|
24 |
77 |
if ($has_units) { }
|
|
126
|
29 |
1126 |
if ($date =~ /$day/mix)
|
|
135
|
48 |
876 |
if ($date =~ /$month/mix)
|
|
142
|
0 |
101 |
if $ENV{'DFF_DEBUG'}
|
|
147
|
0 |
101 |
if $ENV{'DFF_DEBUG'}
|
|
160
|
21 |
3 |
if (my($amount, $unit) = $date =~ /(\d+)\s+([^\s]+)/mx)
|
|
162
|
0 |
21 |
if $ENV{'DFF_DEBUG'}
|
|
163
|
21 |
0 |
if (exists $strings{$unit})
|
|
167
|
13 |
8 |
if ($direction eq 'past')
|
|
171
|
8 |
13 |
if ($direction eq 'future')
|
|
177
|
0 |
21 |
if ($ENV{'DFF_DEBUG'})
|
|
198
|
14 |
15 |
if ($direction eq 'past')
|
|
201
|
12 |
2 |
if ($amount < 1)
|
|
202
|
0 |
14 |
if $ENV{'DFF_DEBUG'}
|
|
208
|
15 |
14 |
if ($direction eq 'future')
|
|
211
|
4 |
11 |
if ($amount < 1)
|
|
212
|
0 |
15 |
if $ENV{'DFF_DEBUG'}
|
|
232
|
0 |
48 |
if $ENV{'DFF_DEBUG'}
|
|
235
|
15 |
33 |
if ($direction eq 'past' and $date_mon >= $mon)
|
|
239
|
11 |
37 |
if ($direction eq 'future' and $date_mon <= $mon)
|
|
244
|
0 |
48 |
if $ENV{'DFF_DEBUG'}
|
|
257
|
45 |
96678 |
if ($date =~ /\Q$key\E/mix)
|
|
267
|
8 |
416677 |
if (index(lc $date, lc $key) >= 0)
|
|
284
|
2409 |
132256 |
if ($date =~ /\b$month_name\b/mix) { }
|
|
|
11 |
132245 |
elsif ($date =~ /\d$month_name/mix) { }
|
|
|
4 |
132241 |
elsif ($date =~ /\b$month_name\d.*\b/mix) { }
|
|
321
|
16 |
136129 |
if (lc $date eq lc $day_name or index(lc $date, lc($day_name) . ' at') >= 0)
|
|
326
|
2 |
14 |
if ($date_dow == $dt->dow) { }
|
|
|
12 |
2 |
elsif ($date_dow > $dt->dow) { }
|
|
348
|
234 |
135895 |
if ($date =~ /\b$day_name\b/mix)
|
|
367
|
29 |
209 |
if (lc $key eq lc $day)
|
|
383
|
34 |
75139 |
if ($date =~ /$hour/mix)
|
|
400
|
162 |
25959 |
if ($date =~ /$rs/mix)
|
|
402
|
0 |
162 |
if $ENV{'DFF_DEBUG'}
|