| line |
true |
false |
branch |
|
20
|
21 |
38 |
unless $$self{'as_ical'} |
|
37
|
14 |
0 |
if UNIVERSAL::can($self, 'get_ical') |
|
38
|
13 |
1 |
if UNIVERSAL::can($_[0], 'get_ical') |
|
39
|
0 |
14 |
if exists $op1{'exclude'} or exists $op2{'exclude'} |
|
46
|
7 |
7 |
exists $op1{'include'} ? : |
|
50
|
0 |
14 |
if (exists $op2{'include'}) { } |
|
66
|
0 |
1 |
unless @_ |
|
70
|
1 |
0 |
if UNIVERSAL::can($self, 'get_ical') |
|
71
|
0 |
1 |
if UNIVERSAL::can($_[0], 'get_ical') |
|
72
|
0 |
1 |
if exists $op2{'exclude'} |
|
78
|
1 |
0 |
exists $op1{'include'} ? : |
|
82
|
0 |
1 |
exists $op1{'exclude'} ? : |
|
85
|
0 |
1 |
if (exists $op2{'include'}) { } |
|
177
|
298 |
17423 |
unless defined $$dur |
|
519
|
16 |
46 |
if $base_unit eq 'years' and exists $args{'weeks'} |
|
522
|
5 |
57 |
if $base_unit eq 'months' and exists $args{'weeks'} |
|
529
|
18 |
44 |
if $week_start_day |
|
531
|
18 |
26 |
$base eq 'years' ? : |
|
|
44 |
18 |
unless defined $week_start_day |
|
533
|
0 |
62 |
unless $DateTime::Event::Recurrence::weekdays_any{$week_start_day} |
|
539
|
0 |
62 |
if $interval < 1 |
|
541
|
0 |
62 |
if $interval > 1 |
|
545
|
0 |
62 |
if defined $start and $start->is_infinite |
|
549
|
0 |
62 |
if $start and $interval > 1 |
|
558
|
62 |
69 |
if ($base eq $DateTime::Event::Recurrence::units[$_]) |
|
564
|
0 |
62 |
if exists $args{'weeks'} and exists $args{'months'} |
|
573
|
261 |
100 |
unless exists $args{$unit} |
|
575
|
61 |
39 |
if (ref $args{$unit} eq 'ARRAY') { } |
|
586
|
27 |
73 |
if ($unit eq 'days') |
|
589
|
3 |
146 |
$_ =~ /[a-z]/ ? : |
|
596
|
0 |
18 |
unless $a < 0 <=> $b < 0 |
|
603
|
1 |
99 |
if ($unit eq 'nanoseconds') { } |
|
|
6 |
93 |
elsif ($base eq 'weeks' and $unit eq 'days') { } |
|
611
|
6 |
0 |
exists $DateTime::Event::Recurrence::ical_days{$_} ? : |
|
624
|
48 |
42 |
if ($unit eq 'months' or $unit eq 'weeks' or $unit eq 'days') |
|
631
|
0 |
211 |
unless $_ |
|
633
|
174 |
37 |
if $_ > 0 |
|
637
|
428 |
3 |
if $_ < $DateTime::Event::Recurrence::limits{$unit} |
|
643
|
16 |
11 |
if ($unit eq 'days' and $base_unit eq 'months' || $level_unit[-1] eq 'months') |
|
647
|
137 |
1 |
if $_ < 31 |
|
653
|
10 |
17 |
if ($unit eq 'days' and $base_unit eq 'weeks' || $level_unit[-1] eq 'weeks') |
|
658
|
10 |
0 |
if $_ < 7 |
|
673
|
1 |
99 |
unless @{$args{$unit};} |
|
688
|
1 |
60 |
if keys %args |
|
703
|
13 |
108 |
if (@positives and @negatives) |
|
725
|
68 |
53 |
if ($i == $#duration) { } |
|
761
|
13 |
60 |
defined $set ? : |
|
777
|
34 |
3079 |
if $occurrence < 0 |
|
788
|
437 |
7122 |
if ($$args{'duration'}[$j][$i] < 0) |
|
797
|
108 |
7451 |
if ($DateTime::Event::Recurrence::as_number{$$args{'level_unit'}[$j - 1]}($next, $$args{'week_start_day'}) != $DateTime::Event::Recurrence::as_number{$$args{'level_unit'}[$j - 1]}($previous, $$args{'week_start_day'})) |
|
822
|
206 |
316 |
if $self->is_infinite |
|
830
|
178 |
316 |
if $init |
|
837
|
494 |
346 |
if ($end - $start < 3) |
|
842
|
0 |
631 |
unless defined $next |
|
843
|
316 |
315 |
if $next < $self |
|
850
|
0 |
346 |
unless defined $next |
|
852
|
189 |
157 |
if ($next < $self) { } |
|
869
|
225 |
831 |
if $self->is_infinite |
|
877
|
583 |
831 |
if $init |
|
884
|
1413 |
426 |
if ($end - $start < 3) |
|
889
|
34 |
1568 |
unless defined $next |
|
890
|
830 |
738 |
if $next > $self |
|
897
|
0 |
426 |
unless defined $next |
|
899
|
212 |
214 |
if ($next > $self) { } |