| line |
true |
false |
branch |
|
25
|
0 |
29 |
@_ == 1 ? : |
|
29
|
2 |
27 |
unless $parms{'cron'} |
|
38
|
0 |
1 |
@_ == 1 ? : |
|
47
|
4 |
7 |
if ref $set and not $@ |
|
56
|
0 |
22 |
if $sparms{'next'} or $sparms{'recurrence'} or $sparms{'previous'} |
|
72
|
20 |
28 |
@_ == 1 ? : |
|
82
|
0 |
0 |
@_ == 1 ? : |
|
89
|
0 |
0 |
if (ref $dtc and not $@) |
|
91
|
0 |
0 |
if defined $dtc->user |
|
102
|
0 |
1 |
unless (ref $fh) |
|
106
|
0 |
0 |
unless open $fh, "<$file" |
|
117
|
12 |
584 |
if not $date or $date->second |
|
118
|
322 |
65 |
if $self->minute->contains($date->minute) and $self->hour->contains($date->hour) and $self->days_contain($date->day, $date->dow) |
|
127
|
0 |
0 |
unless $date |
|
128
|
0 |
0 |
if $self->minute->contains($date->minute) and $self->hour->contains($date->hour) and $self->days_contain($date->day, $date->dow) |
|
138
|
1 |
95 |
unless $date |
|
144
|
1 |
77 |
unless $date |
|
152
|
0 |
96 |
unless $date |
|
153
|
22 |
74 |
if $date->is_infinite |
|
162
|
0 |
78 |
unless $date |
|
163
|
22 |
56 |
if $date->is_infinite |
|
174
|
0 |
74 |
unless ref $date |
|
175
|
47 |
27 |
$self->valid($date) ? : |
|
182
|
0 |
56 |
unless ref $date |
|
183
|
33 |
23 |
$self->valid($date) ? : |
|
196
|
0 |
57 |
unless ref $date |
|
200
|
8 |
49 |
if $date->second |
|
206
|
5 |
52 |
if (not $self->month->contains($date->month)) { } |
|
|
34 |
18 |
elsif (not $self->days_contain($date->day, $date->dow)) { } |
|
|
5 |
13 |
elsif (not $self->hour->contains($date->hour)) { } |
|
221
|
8 |
49 |
if $self->valid($date) |
|
232
|
11 |
63 |
if $date->day < $day_orig |
|
237
|
5 |
58 |
if $date->hour < $hour_orig |
|
242
|
5 |
53 |
if $date->minute < $min_orig |
|
253
|
0 |
47 |
unless ref $date |
|
257
|
3 |
44 |
if (not $self->month->contains($date->month)) { } |
|
|
30 |
14 |
elsif (not $self->days_contain($date->day, $date->dow)) { } |
|
|
3 |
11 |
elsif (not $self->hour->contains($date->hour)) { } |
|
272
|
7 |
40 |
if $self->valid($date) |
|
278
|
17 |
52 |
unless ($self->month->contains($date->month)) |
|
283
|
53 |
16 |
unless ($self->days_contain($date->day, $date->dow)) |
|
287
|
24 |
29 |
if $date->day > $day_orig |
|
291
|
41 |
4 |
unless ($self->hour->contains($date->hour)) |
|
294
|
3 |
38 |
if $date->hour > $hour_orig |
|
298
|
42 |
0 |
unless ($self->minute->contains($date->minute)) |
|
302
|
2 |
40 |
if $date->minute > $min_orig |
|
314
|
0 |
113 |
unless $date and $unit |
|
324
|
0 |
47 |
unless $date |
|
328
|
34 |
13 |
$next <= $cur ? : |
|
333
|
0 |
34 |
unless $date |
|
337
|
30 |
4 |
$next <= $cur ? : |
|
342
|
0 |
30 |
unless $date |
|
349
|
0 |
33 |
unless $date |
|
353
|
30 |
3 |
$next >= $cur ? : |
|
358
|
0 |
30 |
unless $date |
|
362
|
24 |
6 |
$next >= $cur ? : |
|
367
|
0 |
24 |
unless $date |
|
396
|
27 |
8388 |
if (@_) |
|
409
|
0 |
0 |
if (ref $date) |
|
415
|
0 |
0 |
if $self->days_contain($date->day, $date->dow) |
|
472
|
1 |
47 |
unless defined $cron |
|
475
|
1 |
46 |
if (ref $cron) { } |
|
483
|
9 |
38 |
unless @line >= 5 |
|
486
|
38 |
0 |
unless (defined $user_mode) |
|
488
|
4 |
34 |
if (@line > 1 and $line[0] =~ /^\w+$/) |
|
492
|
4 |
34 |
if $user_mode |
|
505
|
6 |
23 |
scalar @day_list == scalar @$day_range && scalar @dow_list != scalar @$dow_range ? : |
|
507
|
12 |
17 |
scalar @dow_list == scalar @$dow_range && scalar @day_list != scalar @$day_range ? : |
|
509
|
23 |
6 |
unless ($self->day_squelch) |
|
514
|
21 |
6 |
if $_ <= $Month_Max[$month - 1] |
|
517
|
2 |
21 |
unless $pass |
|
525
|
0 |
227 |
unless my $val = $self->_range->{$name} |
|
535
|
2 |
167 |
unless @list |
|
536
|
5 |
162 |
if $list[-1] > $$range[-1] |
|
538
|
3 |
159 |
if ($name eq 'dow' and $set->contains(0)) |
|
540
|
3 |
0 |
unless $set->contains(7) |
|
543
|
2 |
160 |
if $list[0] < $$range[0] |
|
558
|
0 |
2410 |
unless defined $day and defined $dow |
|
562
|
200 |
2210 |
if $self->day_squelch |
|
563
|
1916 |
294 |
if $self->dow_squelch |
|
564
|
155 |
139 |
unless $day_c |
|
583
|
389 |
15778 |
if (@_) |
|
610
|
0 |
172 |
unless defined $string and ref $range |
|
628
|
0 |
81 |
unless exists $$hash{$entry} |
|
630
|
0 |
81 |
wantarray ? : |
|
636
|
0 |
63 |
unless exists $$hash{$entry} |
|
638
|
0 |
63 |
wantarray ? : |
|
644
|
344 |
144 |
if (@_) |