blib/lib/DateTime/Event/Recurrence.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 33 | 44 | 75.0 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
519 | 34 | 12 | 16 | $base_unit eq 'years' and exists $args{'weeks'} |
522 | 50 | 7 | 5 | $base_unit eq 'months' and exists $args{'weeks'} |
545 | 62 | 0 | 0 | defined $start and $start->is_infinite |
549 | 62 | 0 | 0 | $start and $interval > 1 |
564 | 41 | 21 | 0 | exists $args{'weeks'} and exists $args{'months'} |
603 | 93 | 0 | 6 | $base eq 'weeks' and $unit eq 'days' |
643 | 73 | 27 | 0 | $unit eq 'days' and $base_unit eq 'months' || $level_unit[-1] eq 'months' |
653 | 73 | 27 | 0 | $unit eq 'days' and $base_unit eq 'weeks' || $level_unit[-1] eq 'weeks' |
703 | 20 | 88 | 13 | @positives and @negatives |
line | l | !l | condition |
---|---|---|---|
538 | 0 | 62 | delete $args{'interval'} || 1 |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
39 | 0 | 0 | 14 | exists $op1{'exclude'} or exists $op2{'exclude'} |
624 | 10 | 21 | 69 | $unit eq 'months' or $unit eq 'weeks' |
31 | 27 | 42 | $unit eq 'months' or $unit eq 'weeks' or $unit eq 'days' | |
643 | 6 | 10 | 11 | $base_unit eq 'months' || $level_unit[-1] eq 'months' |
653 | 6 | 4 | 17 | $base_unit eq 'weeks' || $level_unit[-1] eq 'weeks' |