| 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
|