line |
true |
false |
branch |
184
|
10 |
207 |
if ($day =~ /$tibsday/) { } |
|
205 |
3 |
elsif ($day > 0 and $day < 74) { } |
185
|
9 |
1 |
unless (defined $$opts{'season'}) |
201
|
206 |
5 |
if (defined $season) |
220
|
203 |
10 |
if (defined $args{'season'}) { } |
225
|
1 |
9 |
unless ($args{'day'} =~ /$tibsday/) |
229
|
9 |
203 |
if ($args{'day'} =~ /$tibsday/) |
232
|
2 |
210 |
if $args{'day'} eq q[St. Tib's Day] and not _is_leap_year($args{'year'} - 1166) |
238
|
3 |
207 |
if (defined $$self{'locale'}) |
239
|
1 |
2 |
unless (ref $$self{'locale'}) |
282
|
1 |
34 |
if ($$self{'day'} eq q[St. Tib's Day]) |
300
|
1 |
35 |
if $$self{'day'} eq q[St. Tib's Day] |
344
|
73 |
1 |
if ($args{'object'}->can('set_time_zone')) |
373
|
1 |
3 |
if $$self{'day'} == 5 |
375
|
2 |
1 |
if $$self{'day'} == 50 |
518
|
47 |
1 |
$$self{'day'} eq q[St. Tib's Day] || $$self{'day'} != 5 && $$self{'day'} != 50 ? : |
522
|
3 |
45 |
$$self{'day'} eq q[St. Tib's Day] ? : |
526
|
134 |
1 |
$formats{$1} ? : |
527
|
46 |
2 |
unless (wantarray) |
564
|
7 |
68 |
if $day % 10 == 1 and $day != 11 |
565
|
7 |
61 |
if $day % 10 == 2 and $day != 12 |
566
|
7 |
54 |
if $day % 10 == 3 and $day != 13 |
587
|
7 |
203 |
$$self{'day'} eq q[St. Tib's Day] ? : |
594
|
68 |
110 |
_is_leap_year($yr + 1) ? : |
|
32 |
178 |
$day_of_year <= 60 ? : |
602
|
903 |
89 |
$ix <= $x ? : |
631
|
5 |
69 |
$d4 == 0 ? : |
639
|
3 |
71 |
if ($d4 == 60 and _is_leap_year($year - 1166)) { } |
646
|
5 |
66 |
$d4 == 0 ? : |
648
|
5 |
66 |
$d4 == 0 ? : |
650
|
24 |
47 |
if ($d4 > 60 and _is_leap_year($year - 1166)) |
654
|
12 |
59 |
if ($day < 1) |