| line |
true |
false |
branch |
|
41
|
402 |
189 |
unless exists $param{$_} |
|
42
|
65 |
124 |
if (ref $param{$_} eq 'ARRAY') { } |
|
|
8 |
116 |
elsif (UNIVERSAL::can($param{$_}, 'datetime')) { } |
|
|
116 |
0 |
elsif (defined $param{$_}) { } |
|
46
|
0 |
8 |
if ($DateTime::Format::ICal::VERSION) { } |
|
70
|
1 |
0 |
if exists $args{'interval'} |
|
81
|
7 |
0 |
if exists $args{'interval'} |
|
83
|
0 |
7 |
if exists $args{'bysecond'} |
|
84
|
7 |
0 |
unless exists $by{'seconds'} |
|
94
|
3 |
0 |
if exists $args{'interval'} |
|
96
|
1 |
2 |
if exists $args{'bysecond'} |
|
97
|
2 |
1 |
unless exists $by{'seconds'} |
|
98
|
0 |
3 |
if exists $args{'byminute'} |
|
99
|
3 |
0 |
unless exists $by{'minutes'} |
|
109
|
7 |
3 |
if exists $args{'interval'} |
|
111
|
0 |
10 |
if exists $args{'bysecond'} |
|
112
|
10 |
0 |
unless exists $by{'seconds'} |
|
113
|
4 |
6 |
if exists $args{'byminute'} |
|
114
|
6 |
4 |
unless exists $by{'minutes'} |
|
115
|
4 |
6 |
if exists $args{'byhour'} |
|
116
|
6 |
4 |
unless exists $by{'hours'} |
|
121
|
1 |
9 |
if exists $args{'bymonth'} and not exists $args{'bymonthday'} |
|
129
|
9 |
1 |
if exists $args{'interval'} |
|
131
|
0 |
10 |
if exists $args{'bysecond'} |
|
132
|
10 |
0 |
unless exists $by{'seconds'} |
|
133
|
1 |
9 |
if exists $args{'byminute'} |
|
134
|
9 |
1 |
unless exists $by{'minutes'} |
|
135
|
1 |
9 |
if exists $args{'byhour'} |
|
136
|
9 |
1 |
unless exists $by{'hours'} |
|
139
|
7 |
3 |
$args{'wkst'} ? : |
|
144
|
7 |
3 |
exists $args{'byday'} ? : |
|
158
|
20 |
0 |
if exists $args{'interval'} |
|
160
|
0 |
20 |
if exists $args{'bysecond'} |
|
161
|
20 |
0 |
unless exists $by{'seconds'} |
|
162
|
0 |
20 |
if exists $args{'byminute'} |
|
163
|
20 |
0 |
unless exists $by{'minutes'} |
|
164
|
3 |
17 |
if exists $args{'byhour'} |
|
165
|
17 |
3 |
unless exists $by{'hours'} |
|
168
|
0 |
20 |
$args{'wkst'} ? : |
|
170
|
8 |
12 |
if (exists $args{'bymonthday'}) { } |
|
|
11 |
1 |
elsif (exists $args{'byday'}) { } |
|
180
|
1 |
0 |
unless exists $by{'days'} |
|
184
|
13 |
7 |
if (exists $args{'byday'}) |
|
189
|
0 |
13 |
if exists $args{'bysecond'} |
|
190
|
13 |
0 |
unless exists $by{'seconds'} |
|
191
|
0 |
13 |
if exists $args{'byminute'} |
|
192
|
13 |
0 |
unless exists $by{'minutes'} |
|
193
|
3 |
10 |
if exists $args{'byhour'} |
|
194
|
10 |
3 |
unless exists $by{'hours'} |
|
205
|
13 |
7 |
if $set_byday |
|
214
|
20 |
4 |
if exists $args{'interval'} |
|
216
|
0 |
24 |
if exists $args{'bysecond'} |
|
217
|
24 |
0 |
unless exists $by{'seconds'} |
|
218
|
2 |
22 |
if exists $args{'byminute'} |
|
219
|
22 |
2 |
unless exists $by{'minutes'} |
|
220
|
8 |
16 |
if exists $args{'byhour'} |
|
221
|
16 |
8 |
unless exists $by{'hours'} |
|
224
|
0 |
24 |
$args{'wkst'} ? : |
|
227
|
16 |
8 |
if (exists $args{'bymonth'}) { } |
|
|
3 |
5 |
elsif (exists $args{'byweekno'}) { } |
|
|
1 |
4 |
elsif (exists $args{'byyearday'}) { } |
|
|
4 |
0 |
elsif (exists $args{'byday'}) { } |
|
232
|
6 |
10 |
if exists $args{'bymonthday'} |
|
235
|
8 |
2 |
if not exists $by{'days'} and exists $args{'byday'} |
|
236
|
2 |
14 |
unless exists $by{'days'} |
|
244
|
1 |
2 |
if exists $args{'byday'} |
|
245
|
2 |
1 |
unless exists $by{'days'} |
|
257
|
0 |
4 |
if exists $args{'bymonthday'} |
|
259
|
4 |
0 |
unless exists $by{'days'} |
|
260
|
0 |
4 |
unless exists $by{'days'} |
|
267
|
0 |
0 |
if exists $args{'bymonthday'} |
|
268
|
0 |
0 |
unless exists $by{'days'} |
|
273
|
14 |
10 |
if (exists $args{'byday'}) |
|
276
|
9 |
5 |
if exists $args{'bymonth'} |
|
279
|
0 |
14 |
if exists $args{'bysecond'} |
|
280
|
14 |
0 |
unless exists $by{'seconds'} |
|
281
|
1 |
13 |
if exists $args{'byminute'} |
|
282
|
13 |
1 |
unless exists $by{'minutes'} |
|
283
|
6 |
8 |
if exists $args{'byhour'} |
|
284
|
8 |
6 |
unless exists $by{'hours'} |
|
295
|
14 |
10 |
if $set_byday |
|
310
|
4 |
23 |
unless ref $args{'byday'} eq 'ARRAY' |
|
315
|
0 |
55 |
unless $week_day |
|
316
|
21 |
34 |
if ($count) { } |
|
329
|
16 |
11 |
if (@days_no_index) |
|
343
|
12 |
6 |
if ($_args{'freq'} eq 'monthly') { } |
|
|
6 |
0 |
elsif ($_args{'freq'} eq 'yearly') { } |
|
358
|
7 |
11 |
$result ? : |
|
388
|
2 |
1 |
unless ref $args{'bysetpos'} |
|
392
|
2 |
2 |
if $_ > 0 |
|
398
|
4 |
37 |
if $_[0]->is_infinite |
|
408
|
27 |
35 |
if ($#{$args{'bysetpos'};} == 0) { } |
|
412
|
12 |
15 |
if ($pos >= 0) { } |
|
419
|
6 |
6 |
if $next > $self |
|
427
|
8 |
7 |
if $next > $self |
|
450
|
23 |
35 |
if $_ > $self |
|
459
|
5 |
7 |
if $_[0]->is_infinite |
|
485
|
7 |
8 |
if $_ < $self |
|
487
|
0 |
5 |
unless $count-- |
|
511
|
67 |
0 |
if exists $frequencies{$freq} |
|
524
|
20 |
67 |
if (exists $args{'count'}) |
|
545
|
65 |
2 |
exists $args{'dtstart'} ? : |
|
550
|
9 |
58 |
if exists $args{'dtend'} |
|
554
|
8 |
59 |
if exists $args{'until'} |
|
557
|
42 |
25 |
unless $args{'interval'} |
|
562
|
65 |
2 |
exists $args{'dtstart'} ? : |
|
566
|
8 |
59 |
if ($args{'freq'} eq 'daily') |
|
567
|
1 |
7 |
if (exists $args{'bymonth'} and $args{'interval'} == 1) |
|
571
|
1 |
0 |
unless exists $args{'bymonthday'} |
|
580
|
0 |
67 |
unless (defined $base_set) |
|
592
|
0 |
67 |
if (exists $args{'byyearday'}) |
|
598
|
4 |
63 |
if (exists $args{'bymonthday'} or exists $args{'bymonth'}) |
|
602
|
2 |
2 |
if $args_backup{'byhour'} |
|
603
|
1 |
3 |
if $args{'freq'} eq 'hourly' |
|
604
|
0 |
4 |
if $args_backup{'byminute'} |
|
605
|
2 |
2 |
if $args{'freq'} eq 'minutely' |
|
606
|
0 |
4 |
if $args_backup{'bysecond'} |
|
607
|
0 |
4 |
if $args{'freq'} eq 'secondly' |
|
615
|
1 |
66 |
if (exists $args{'byday'} or exists $args{'byweekno'}) |
|
619
|
1 |
0 |
if $args_backup{'byhour'} |
|
620
|
0 |
1 |
if $args{'freq'} eq 'hourly' |
|
621
|
0 |
1 |
if $args_backup{'byminute'} |
|
622
|
1 |
0 |
if $args{'freq'} eq 'minutely' |
|
623
|
0 |
1 |
if $args_backup{'bysecond'} |
|
624
|
0 |
1 |
if $args{'freq'} eq 'secondly' |
|
631
|
3 |
64 |
if (exists $args{'byhour'}) |
|
634
|
0 |
3 |
if $args_backup{'byminute'} |
|
635
|
3 |
0 |
if $args{'freq'} eq 'minutely' |
|
636
|
0 |
3 |
if $args_backup{'bysecond'} |
|
637
|
0 |
3 |
if $args{'freq'} eq 'secondly' |
|
644
|
67 |
0 |
$base_set ? : |
|
|
0 |
67 |
$base_set && $by_year_day ? : |
|
647
|
63 |
0 |
$base_set ? : |
|
|
4 |
63 |
$base_set && $by_month_day ? : |
|
650
|
66 |
0 |
$base_set ? : |
|
|
1 |
66 |
$base_set && $by_week_day ? : |
|
653
|
64 |
0 |
$base_set ? : |
|
|
3 |
64 |
$base_set && $by_hour ? : |
|
661
|
3 |
64 |
if (exists $args{'bysetpos'}) |
|
670
|
67 |
0 |
if $span |
|
676
|
0 |
67 |
if @args |