| 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') |
|
40
|
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
|
301 |
17478 |
unless defined $$dur |
|
521
|
16 |
12 |
if $base_unit eq 'years' and exists $args{'weeks'} |
|
524
|
5 |
7 |
if $base_unit eq 'months' and exists $args{'weeks'} |
|
529
|
18 |
45 |
if $week_start_day |
|
531
|
18 |
27 |
$base eq 'years' ? : |
|
|
45 |
18 |
unless defined $week_start_day |
|
534
|
0 |
63 |
unless $DateTime::Event::Recurrence::weekdays_any{$week_start_day} |
|
539
|
0 |
63 |
if $interval < 1 |
|
541
|
0 |
63 |
if $interval > 1 |
|
545
|
0 |
63 |
if defined $start and $start->is_infinite |
|
549
|
0 |
63 |
if $start and $interval > 1 |
|
558
|
63 |
73 |
if ($base eq $DateTime::Event::Recurrence::units[$_]) |
|
566
|
0 |
21 |
if exists $args{'weeks'} and exists $args{'months'} |
|
573
|
264 |
100 |
unless exists $args{$unit} |
|
575
|
61 |
39 |
if (ref $args{$unit} eq 'ARRAY') { } |
|
586
|
27 |
73 |
if ($unit eq 'days') |
|
591
|
3 |
146 |
$_ =~ /[a-z]/ ? : |
|
598
|
0 |
18 |
unless $a < 0 <=> $b < 0 |
|
603
|
1 |
99 |
if ($unit eq 'nanoseconds') { } |
|
|
6 |
93 |
elsif ($base eq 'weeks' and $unit eq 'days') { } |
|
614
|
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 |
|
640
|
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') |
|
649
|
137 |
1 |
if $_ < 31 |
|
653
|
10 |
17 |
if ($unit eq 'days' and $base_unit eq 'weeks' || $level_unit[-1] eq 'weeks') |
|
660
|
10 |
0 |
if $_ < 7 |
|
673
|
1 |
99 |
unless @{$args{$unit};} |
|
688
|
1 |
61 |
if keys %args |
|
703
|
13 |
108 |
if (@positives and @negatives) |
|
725
|
68 |
53 |
if ($i == $#duration) { } |
|
761
|
13 |
61 |
defined $set ? : |
|
777
|
34 |
3137 |
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
|
207 |
318 |
if $self->is_infinite |
|
831
|
180 |
318 |
if $init |
|
838
|
498 |
346 |
if ($end - $start < 3) |
|
843
|
0 |
635 |
unless defined $next |
|
844
|
318 |
317 |
if $next < $self |
|
851
|
0 |
346 |
unless defined $next |
|
853
|
189 |
157 |
if ($next < $self) { } |
|
870
|
226 |
858 |
if $self->is_infinite |
|
879
|
610 |
858 |
if $init |
|
886
|
1467 |
426 |
if ($end - $start < 3) |
|
891
|
34 |
1622 |
unless defined $next |
|
892
|
857 |
765 |
if $next > $self |
|
899
|
0 |
426 |
unless defined $next |
|
901
|
212 |
214 |
if ($next > $self) { } |