| line |
true |
false |
branch |
|
164
|
1 |
11 |
if ($year < 1583 or $year > 7666) |
|
169
|
2 |
9 |
if ($radonitsa_day > 30) |
|
184
|
1 |
13 |
unless $year and $month and $day |
|
207
|
0 |
17 |
unless my $year = shift() |
|
209
|
6 |
11 |
if $cache{$year} |
|
213
|
6 |
2 |
if (my $spec = $HOLIDAYS_SPECIAL{$year}) |
|
222
|
1 |
10 |
if $year < $HOLIDAYS_VALID_SINCE |
|
223
|
1 |
9 |
if ($strict) |
|
224
|
1 |
0 |
if $year >= $INACCURATE_TIMES_SINCE |
|
230
|
0 |
80 |
unless $days |
|
231
|
75 |
5 |
unless ref $days |
|
232
|
0 |
80 |
unless @$days |
|
235
|
0 |
80 |
unless $name |
|
245
|
9 |
152 |
if ref $value eq "CODE" |
|
246
|
143 |
9 |
if ref $value ne "HASH" |
|
249
|
0 |
9 |
unless $ykey |
|
250
|
0 |
9 |
if ref $value->{$ykey} eq "CODE" |
|
264
|
0 |
5 |
unless $year and $month and $day |
|
266
|
0 |
5 |
if is_holiday($year, $month, $day) |
|
272
|
1 |
4 |
unless $wday eq "Sat" or $wday eq "Sun" |
|
275
|
0 |
4 |
unless my $ref = $BUSINESS_DAYS_ON_WEEKENDS{$year} |
|
279
|
1 |
12 |
if $_ eq $md |
|
294
|
0 |
3 |
unless my $short_days_ref = $SHORT_BUSINESS_DAYS{$year} |