| line |
true |
false |
branch |
|
99
|
39 |
183 |
unless (ref $selection) |
|
102
|
39 |
144 |
if ('CODE' eq ref $selection) |
|
123
|
1381 |
127 |
if (not defined $$day[3] or _select_year($someday, $day, $year)) |
|
124
|
1308 |
73 |
if ($$day[0]) { } |
|
128
|
1119 |
189 |
if $$day[2] |
|
131
|
17 |
56 |
unless (defined $easter) |
|
137
|
16 |
57 |
if $$day[2] |
|
139
|
1369 |
12 |
if 0 <= $index and $index < @$calendar |
|
151
|
2 |
2 |
if (8 <= @$calendar and $$calendar[-1]) |
|
162
|
183 |
5378 |
if (not defined $$self[8] or $year != $$self[8]) |
|
182
|
175 |
10 |
if $first_wd |
|
190
|
8 |
0 |
defined $configuration ? : |
|
192
|
5 |
3 |
if (not $type) { } |
|
|
1 |
3 |
elsif ('ARRAY' ne $type and 'CODE' ne $type) { } |
|
193
|
2 |
3 |
unless exists $samples{$configuration} |
|
205
|
34 |
0 |
defined $configuration ? : |
|
207
|
21 |
13 |
unless ($type) |
|
208
|
1 |
20 |
unless exists $samples{$configuration} |
|
212
|
30 |
3 |
if (ref $self) { } |
|
214
|
7 |
23 |
if ('CODE' eq $type) { } |
|
|
22 |
1 |
elsif ('ARRAY' eq $type) { } |
|
227
|
1 |
2 |
if ('ARRAY' ne $type and 'CODE' ne $type) |
|
240
|
15 |
693 |
unless (ref $class_or_object) |
|
243
|
9 |
699 |
if (defined $configuration) { } |
|
|
6 |
693 |
elsif (not ref $class_or_object) { } |
|
254
|
47 |
49 |
$alignment ? : |
|
285
|
37 |
26 |
unless $$self[6] |
|
311
|
29 |
27 |
unless $$self[6] |
|
345
|
29 |
29 |
if ($delta > 0) |
|
348
|
27 |
2 |
if ($delta < 0) |
|
359
|
27 |
38 |
if ($delta > 0) |
|
362
|
36 |
2 |
if ($delta < 0) |
|
374
|
8 |
22 |
if '<' ne $relation and '>' ne $relation and $$calendar[$day] |
|
375
|
16 |
16 |
if ('<' eq $relation or '<=' eq $relation) { } |
|
402
|
18 |
4 |
if (0 < $days) |
|
414
|
48 |
41 |
if ($$calendar[$day++]) |
|
426
|
6 |
4 |
if (0 < $days) |
|
438
|
24 |
27 |
if ($$calendar[$day--]) |
|
459
|
20 |
52 |
if (defined $new_alignment and ($alignment xor $new_alignment)) |
|
460
|
10 |
10 |
if ($new_alignment) { } |
|
470
|
42 |
30 |
if (0 < $days or not $days || $alignment) { } |
|
472
|
33 |
9 |
unless $alignment |
|
484
|
21 |
9 |
if $alignment |