| line |
true |
false |
branch |
|
65
|
0 |
0 |
if (my($year, $month, $day) = $_[0]{$setup->{'field'}} =~ /(\d\d\d\d)(\d\d)(\d\d)/g) |
|
75
|
0 |
0 |
unless $@ |
|
80
|
0 |
0 |
if ($eval_error =~ /^Parameter 'month'/) { } |
|
|
0 |
0 |
elsif ($eval_error =~ /^Parameter 'day'/) { } |
|
91
|
0 |
0 |
if $eval_error |
|
155
|
0 |
0 |
if $in_date <= $start |
|
179
|
0 |
0 |
if $end <= $in_date |
|
244
|
0 |
0 |
unless $start <= $in_date and $in_date <= $end |
|
293
|
0 |
0 |
unless $in_date < $start or $end < $in_date |
|
316
|
0 |
0 |
if $ENV{'DEBUG'} |
|
319
|
0 |
0 |
if $ENV{'DEBUG'} |
|
326
|
0 |
0 |
unless $interval >= $setup->{'number_of_days'} |
|
358
|
0 |
0 |
if $ENV{'DEBUG'} |
|
365
|
0 |
0 |
unless $setup->{'number_of_days'} >= $interval |
|
443
|
0 |
0 |
unless $date =~ /
\A
(\d\d\d\d)
(\d\d)
(\d\d)
\z
/x |
|
460
|
0 |
0 |
if ($@) |