Branch Coverage

blib/lib/Date/Gregorian/Business.pm
Criterion Covered Total %
branch 84 84 100.0


line true false branch
232 39 184 unless (ref $selection)
235 39 145 if ('CODE' eq ref $selection)
256 1355 129 if (not defined $day->[3] or _select_year($someday, $day, $year))
257 1291 64 if ($day->[0]) { }
261 1120 171 if $day->[2]
264 15 49 unless (defined $easter)
270 16 48 if $day->[2]
272 1343 12 if 0 <= $index and $index < @$calendar
283 181 5381 if (not defined $self->[8] or $year != $self->[8])
303 173 10 if $first_wd
311 8 1 defined $configuration ? :
313 5 4 if (not $type) { }
2 3 elsif ('ARRAY' ne $type and 'CODE' ne $type) { }
314 2 3 unless exists $samples{$configuration}
326 35 1 defined $configuration ? :
328 22 14 unless ($type)
329 4 18 unless exists $samples{$configuration}
333 28 4 if (ref $self) { }
335 4 24 if ('CODE' eq $type) { }
23 1 elsif ('ARRAY' eq $type) { }
348 2 2 if ('ARRAY' ne $type and 'CODE' ne $type)
361 16 687 unless (ref $class_or_object)
364 10 693 if (defined $configuration) { }
6 687 elsif (not ref $class_or_object) { }
375 47 49 $alignment ? :
406 37 26 unless $self->[6]
432 29 27 unless $self->[6]
466 29 29 if ($delta > 0)
469 27 2 if ($delta < 0)
480 27 38 if ($delta > 0)
483 36 2 if ($delta < 0)
495 8 12 if '<' ne $relation and '>' ne $relation and $calendar->[$day]
496 16 16 if ('<' eq $relation or '<=' eq $relation) { }
523 18 4 if (0 < $days)
535 48 41 if ($$calendar[$day++])
547 6 4 if (0 < $days)
559 24 27 if ($$calendar[$day--])
580 20 52 if (defined $new_alignment and ($alignment xor $new_alignment))
581 10 10 if ($new_alignment) { }
591 42 30 if (0 < $days or not $days || $alignment) { }
593 33 9 unless $alignment
605 21 9 if $alignment