Branch Coverage

blib/lib/Calendar/Indonesia/Holiday.pm
Criterion Covered Total %
branch 52 128 40.6


line true false branch
98 14 355 if ($opts->{'original_date'})
107 22 0 $opts->{'hyear'} ? :
109 22 0 $opts->{'hyear'} ? :
134 34 0 $opts->{'hyear'} ? :
136 34 0 $opts->{'hyear'} ? :
160 34 0 $opts->{'hyear'} ? :
162 34 0 $opts->{'hyear'} ? :
199 71 0 $opts->{'hyear'} ? :
201 71 0 $opts->{'hyear'} ? :
202 71 0 $opts->{'day'} ? :
203 71 0 $opts->{'day'} ? :
228 35 0 $opts->{'hyear'} ? :
230 35 0 $opts->{'hyear'} ? :
247 2 12 if defined $opts->{$_}
260 0 4 if defined $opts->{$_}
273 3 3 if defined $opts->{$_}
283 93 2 $h ? :
285 93 2 $h ? :
296 0 0 unless $arg->{'tags'} ~~ "tentative"
304 0 0 if $_->{'is_joint_leave'}
310 0 475 unless $_[0] =~ m[(\d+)[-/](\d+)]
325 590 2 if (@{$seen{$k};} == 1) { }
337 0 4 unless $h->{'tags'}
339 7 1 unless grep {$_ eq $t;} @tags
346 6 18 if exists $h_mult->{$prop}
349 0 36 unless defined $h->{$prop}
352 4 14 if keys %vals > 1
366 0 0 if (defined $args->{'date'}) { }
367 0 0 unless $args->{'date'} =~ /\A(\d{4})-(\d{1,2})-(\d{1,2})\z/
372 0 0 unless $y = $args->{'year'} and $m = $args->{'month'} and $d = $args->{'day'}
1430 0 6 if (ref $date and $date->isa('DateTime')) { }
6 0 elsif ($date =~ /\A(\d{4})-(\d{2})-(\d{2})\z/) { }
1490 0 3 unless my $start_date = _check_date_arg($args{'start_date'} // $som)
1493 0 3 unless my $end_date = _check_date_arg($args{'end_date'} // $eom)
1497 0 6 if $_->year < $min_year
1499 0 6 if $_->year > $max_year
1508 1 2 unless $observe_joint_leaves
1510 0 3 unless $res->[0] == 200
1518 15 84 if $dt->day_of_week == 7
1519 10 74 if $dt->day_of_week == 6 and not $work_saturdays
1520 3 71 if "DateTime"->compare($dt, $end_date) > 0
1522 2 69 if $ymd ~~ \@{$$res[2];}
1536 0 3 unless $res->[0] == 200
1578 0 0 unless $res->[0] == 200
1582 0 0 if defined $e->{'year_start'} and $y < $e->{'year_start'}
1583 0 0 if defined $e->{'year_end'} and $y > $e->{'year_end'}
1584 0 0 unless $e->{'day'} == $d and $e->{'month'} == $m
1588 0 0 $args{'detail'} ? :
0 0 $args{'reverse'} ? :
0 0 $args{'reverse'} ? :
0 0 $args{'quiet'} ? :
1591 0 0 unless ($y >= $min_year and $y <= $max_year)
1594 0 0 $args{'quiet'} ? :
1599 0 0 unless $e->{'day'} == $d and $e->{'month'} == $m
1600 0 0 if $e->{'is_joint_leave'} and not $args{'include_joint_leave'}
1604 0 0 $args{'detail'} ? :
0 0 $args{'reverse'} ? :
0 0 $args{'reverse'} ? :
0 0 $args{'quiet'} ? :
1609 0 0 $args{'reverse'} ? :
0 0 $args{'reverse'} ? :
0 0 $args{'quiet'} ? :
1631 0 0 unless $res->[0] == 200
1640 0 0 unless $res->[0] == 200