| line |
true |
false |
branch |
|
67
|
0 |
0 |
if (my($year, $month, $day) = $_[0]{$setup->{'field'}} =~ /(\d\d\d\d)(\d\d)(\d\d)/g) |
|
78
|
0 |
0 |
unless $@ |
|
83
|
0 |
0 |
if ($eval_error =~ /^Parameter 'month'/) { } |
|
|
0 |
0 |
elsif ($eval_error =~ /^Parameter 'day'/) { } |
|
94
|
0 |
0 |
if $eval_error |
|
159
|
0 |
0 |
if $in_date <= $start |
|
184
|
0 |
0 |
if $end <= $in_date |
|
251
|
0 |
0 |
unless $start <= $in_date and $in_date <= $end |
|
301
|
0 |
0 |
unless $in_date < $start or $end < $in_date |
|
325
|
0 |
0 |
if $ENV{'DEBUG'} |
|
328
|
0 |
0 |
if $ENV{'DEBUG'} |
|
335
|
0 |
0 |
unless $interval >= $setup->{'number_of_days'} |
|
368
|
0 |
0 |
if $ENV{'DEBUG'} |
|
375
|
0 |
0 |
unless $setup->{'number_of_days'} >= $interval |
|
455
|
0 |
0 |
unless $date =~ /
\A
(\d\d\d\d)
(\d\d)
(\d\d)
\z
/x |
|
472
|
0 |
0 |
if ($@) |