| line |
true |
false |
branch |
|
97
|
14 |
355 |
if ($opts->{'original_date'})
|
|
106
|
22 |
0 |
$opts->{'hyear'} ? :
|
|
108
|
22 |
0 |
$opts->{'hyear'} ? :
|
|
133
|
34 |
0 |
$opts->{'hyear'} ? :
|
|
135
|
34 |
0 |
$opts->{'hyear'} ? :
|
|
159
|
34 |
0 |
$opts->{'hyear'} ? :
|
|
161
|
34 |
0 |
$opts->{'hyear'} ? :
|
|
198
|
71 |
0 |
$opts->{'hyear'} ? :
|
|
200
|
71 |
0 |
$opts->{'hyear'} ? :
|
|
201
|
71 |
0 |
$opts->{'day'} ? :
|
|
202
|
71 |
0 |
$opts->{'day'} ? :
|
|
227
|
35 |
0 |
$opts->{'hyear'} ? :
|
|
229
|
35 |
0 |
$opts->{'hyear'} ? :
|
|
246
|
2 |
12 |
if defined $opts->{$_}
|
|
259
|
0 |
4 |
if defined $opts->{$_}
|
|
272
|
3 |
3 |
if defined $opts->{$_}
|
|
282
|
95 |
2 |
$h ? :
|
|
284
|
95 |
2 |
$h ? :
|
|
295
|
0 |
0 |
unless grep {$_ eq "tentative";} @{$$arg{"tags"};}
|
|
303
|
0 |
0 |
if $_->{'is_joint_leave'}
|
|
309
|
0 |
477 |
unless $_[0] =~ m[(\d+)[-/](\d+)]
|
|
324
|
592 |
2 |
if (@{$seen{$k};} == 1) { }
|
|
336
|
0 |
4 |
unless $h->{'tags'}
|
|
338
|
7 |
1 |
unless grep {$_ eq $t;} @tags
|
|
345
|
6 |
18 |
if exists $h_mult->{$prop}
|
|
348
|
0 |
36 |
unless defined $h->{$prop}
|
|
351
|
4 |
14 |
if keys %vals > 1
|
|
365
|
0 |
0 |
if (defined $args->{'date'}) { }
|
|
366
|
0 |
0 |
unless $args->{'date'} =~ /\A(\d{4})-(\d{1,2})-(\d{1,2})\z/
|
|
371
|
0 |
0 |
unless $y = $args->{'year'} and $m = $args->{'month'} and $d = $args->{'day'}
|
|
1435
|
0 |
6 |
if (ref $date and $date->isa('DateTime')) { }
|
|
|
6 |
0 |
elsif ($date =~ /\A(\d{4})-(\d{2})-(\d{2})\z/) { }
|
|
1495
|
0 |
3 |
unless my $start_date = _check_date_arg($args{'start_date'} // $som)
|
|
1498
|
0 |
3 |
unless my $end_date = _check_date_arg($args{'end_date'} // $eom)
|
|
1502
|
0 |
6 |
if $_->year < $min_year
|
|
1504
|
0 |
6 |
if $_->year > $max_year
|
|
1513
|
1 |
2 |
unless $observe_joint_leaves
|
|
1515
|
0 |
3 |
unless $res->[0] == 200
|
|
1523
|
15 |
84 |
if $dt->day_of_week == 7
|
|
1524
|
10 |
74 |
if $dt->day_of_week == 6 and not $work_saturdays
|
|
1525
|
3 |
71 |
if "DateTime"->compare($dt, $end_date) > 0
|
|
1527
|
2 |
69 |
if grep {$_ eq $ymd;} @{$$res[2];}
|
|
1541
|
0 |
3 |
unless $res->[0] == 200
|
|
1583
|
0 |
0 |
unless $res->[0] == 200
|
|
1587
|
0 |
0 |
if defined $e->{'year_start'} and $y < $e->{'year_start'}
|
|
1588
|
0 |
0 |
if defined $e->{'year_end'} and $y > $e->{'year_end'}
|
|
1589
|
0 |
0 |
unless $e->{'day'} == $d and $e->{'month'} == $m
|
|
1593
|
0 |
0 |
$args{'detail'} ? :
|
|
|
0 |
0 |
$args{'reverse'} ? :
|
|
|
0 |
0 |
$args{'reverse'} ? :
|
|
|
0 |
0 |
$args{'quiet'} ? :
|
|
1596
|
0 |
0 |
unless ($y >= $min_year and $y <= $max_year)
|
|
1599
|
0 |
0 |
$args{'quiet'} ? :
|
|
1604
|
0 |
0 |
unless $e->{'day'} == $d and $e->{'month'} == $m
|
|
1605
|
0 |
0 |
if $e->{'is_joint_leave'} and not $args{'include_joint_leave'}
|
|
1609
|
0 |
0 |
$args{'detail'} ? :
|
|
|
0 |
0 |
$args{'reverse'} ? :
|
|
|
0 |
0 |
$args{'reverse'} ? :
|
|
|
0 |
0 |
$args{'quiet'} ? :
|
|
1614
|
0 |
0 |
$args{'reverse'} ? :
|
|
|
0 |
0 |
$args{'reverse'} ? :
|
|
|
0 |
0 |
$args{'quiet'} ? :
|
|
1636
|
0 |
0 |
unless $res->[0] == 200
|
|
1645
|
0 |
0 |
unless $res->[0] == 200
|