| 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
|
95 |
2 |
$h ? :
|
|
285
|
95 |
2 |
$h ? :
|
|
296
|
0 |
0 |
unless $arg->{'tags'} ~~ "tentative"
|
|
304
|
0 |
0 |
if $_->{'is_joint_leave'}
|
|
310
|
0 |
477 |
unless $_[0] =~ m[(\d+)[-/](\d+)]
|
|
325
|
592 |
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'}
|
|
1436
|
0 |
6 |
if (ref $date and $date->isa('DateTime')) { }
|
|
|
6 |
0 |
elsif ($date =~ /\A(\d{4})-(\d{2})-(\d{2})\z/) { }
|
|
1496
|
0 |
3 |
unless my $start_date = _check_date_arg($args{'start_date'} // $som)
|
|
1499
|
0 |
3 |
unless my $end_date = _check_date_arg($args{'end_date'} // $eom)
|
|
1503
|
0 |
6 |
if $_->year < $min_year
|
|
1505
|
0 |
6 |
if $_->year > $max_year
|
|
1514
|
1 |
2 |
unless $observe_joint_leaves
|
|
1516
|
0 |
3 |
unless $res->[0] == 200
|
|
1524
|
15 |
84 |
if $dt->day_of_week == 7
|
|
1525
|
10 |
74 |
if $dt->day_of_week == 6 and not $work_saturdays
|
|
1526
|
3 |
71 |
if "DateTime"->compare($dt, $end_date) > 0
|
|
1528
|
2 |
69 |
if $ymd ~~ \@{$$res[2];}
|
|
1542
|
0 |
3 |
unless $res->[0] == 200
|
|
1584
|
0 |
0 |
unless $res->[0] == 200
|
|
1588
|
0 |
0 |
if defined $e->{'year_start'} and $y < $e->{'year_start'}
|
|
1589
|
0 |
0 |
if defined $e->{'year_end'} and $y > $e->{'year_end'}
|
|
1590
|
0 |
0 |
unless $e->{'day'} == $d and $e->{'month'} == $m
|
|
1594
|
0 |
0 |
$args{'detail'} ? :
|
|
|
0 |
0 |
$args{'reverse'} ? :
|
|
|
0 |
0 |
$args{'reverse'} ? :
|
|
|
0 |
0 |
$args{'quiet'} ? :
|
|
1597
|
0 |
0 |
unless ($y >= $min_year and $y <= $max_year)
|
|
1600
|
0 |
0 |
$args{'quiet'} ? :
|
|
1605
|
0 |
0 |
unless $e->{'day'} == $d and $e->{'month'} == $m
|
|
1606
|
0 |
0 |
if $e->{'is_joint_leave'} and not $args{'include_joint_leave'}
|
|
1610
|
0 |
0 |
$args{'detail'} ? :
|
|
|
0 |
0 |
$args{'reverse'} ? :
|
|
|
0 |
0 |
$args{'reverse'} ? :
|
|
|
0 |
0 |
$args{'quiet'} ? :
|
|
1615
|
0 |
0 |
$args{'reverse'} ? :
|
|
|
0 |
0 |
$args{'reverse'} ? :
|
|
|
0 |
0 |
$args{'quiet'} ? :
|
|
1637
|
0 |
0 |
unless $res->[0] == 200
|
|
1646
|
0 |
0 |
unless $res->[0] == 200
|