| line |
true |
false |
branch |
|
80
|
15 |
1 |
if $self->month_nr($month)
|
|
82
|
1 |
0 |
if $month and $month >= 1 and $month <= 12
|
|
91
|
1 |
13 |
if (defined $self->lookback_days and $result < $self->reference_date and $self->reference_date - $result > $self->lookback_days)
|
|
104
|
4 |
11 |
if (exists $date->{'conjugator'}) { }
|
|
105
|
3 |
1 |
unless $date->{'month2'}
|
|
106
|
3 |
1 |
if (not $date->{'year1'} || $date->{'year2'}) { }
|
|
|
1 |
0 |
elsif ($date->{'year1'} and not $date->{'year2'}) { }
|
|
|
0 |
0 |
elsif (not $date->{'year1'} and $date->{'year2'}) { }
|
|
118
|
0 |
3 |
if (1 == 'DateTime'->compare_ignore_floating($dti1, $dti2)) { }
|
|
136
|
0 |
1 |
if (1 == 'DateTime'->compare_ignore_floating($dti1, $dti2)) { }
|
|
154
|
0 |
0 |
if (1 == 'DateTime'->compare_ignore_floating($dti1, $dti2)) { }
|
|
163
|
3 |
1 |
if ($date->{'conjugator'} eq 'range') { }
|
|
|
1 |
0 |
elsif ($date->{'conjugator'} eq 'enum') { }
|
|
184
|
11 |
0 |
if (not $date->{'year1'}) { }
|
|
258
|
4 |
41 |
if (exists $date->{$c})
|
|
259
|
2 |
2 |
if ($c eq 'and') { }
|
|
260
|
1 |
1 |
if (exists $date->{'between'}) { }
|
|
272
|
15 |
0 |
if $date->{'day1'}
|
|
273
|
4 |
11 |
if $date->{'day2'}
|
|
275
|
15 |
0 |
if $date->{'month1'}
|
|
277
|
1 |
14 |
if $date->{'month2'}
|
|
280
|
0 |
15 |
unless (eval {
do {
foreach my $c ('enum', 'range', 'and') {
if (exists $date->{$c}) {
if ($c eq 'and') {
if (exists $date->{'between'}) {
$date->{'conjugator'} = 'range';
}
else {
$date->{'conjugator'} = 'enum';
} ;
}
else {
$date->{'conjugator'} = $c;
} ;
} ;
} ;
$date->{'day1'} = int $date->{'day1'} if $date->{'day1'};
$date->{'day2'} = int $date->{'day2'} if $date->{'day2'};
$date->{'month1'} = $self->_translate_month($date->{'month1'}) if $date->{'month1'};
$date->{'month2'} = $self->_translate_month($date->{'month2'}) if $date->{'month2'};
push @found_dates, $date;
1
}
})
|
|
281
|
0 |
0 |
if $@
|