| line |
true |
false |
branch |
|
156
|
1 |
11 |
if ($year < 1583 or $year > 7666) |
|
161
|
2 |
9 |
if ($radonitsa_day > 30) |
|
176
|
1 |
13 |
unless $year and $month and $day |
|
199
|
0 |
17 |
unless my $year = shift() |
|
201
|
6 |
11 |
if $cache{$year} |
|
205
|
6 |
2 |
if (my $spec = $HOLIDAYS_SPECIAL{$year}) |
|
214
|
1 |
10 |
if $year < $HOLIDAYS_VALID_SINCE |
|
215
|
1 |
9 |
if ($strict) |
|
216
|
1 |
0 |
if $year >= $INACCURATE_TIMES_SINCE |
|
222
|
0 |
80 |
unless $days |
|
223
|
75 |
5 |
unless ref $days |
|
224
|
0 |
80 |
unless @$days |
|
227
|
0 |
80 |
unless $name |
|
237
|
9 |
152 |
if ref $value eq "CODE" |
|
238
|
143 |
9 |
if ref $value ne "HASH" |
|
241
|
0 |
9 |
unless $ykey |
|
242
|
0 |
9 |
if ref $value->{$ykey} eq "CODE" |
|
256
|
0 |
5 |
unless $year and $month and $day |
|
258
|
0 |
5 |
if is_holiday($year, $month, $day) |
|
264
|
1 |
4 |
unless $wday eq "Sat" or $wday eq "Sun" |
|
267
|
0 |
4 |
unless my $ref = $BUSINESS_DAYS_ON_WEEKENDS{$year} |
|
271
|
1 |
12 |
if $_ eq $md |
|
286
|
1 |
2 |
unless my $short_days_ref = $SHORT_BUSINESS_DAYS{$year} |