| line |
true |
false |
branch |
|
41
|
1 |
53 |
if ($args{'day'} =~ /^fat/i) { }
|
|
|
1 |
52 |
elsif ($args{'day'} =~ /^ash/i) { }
|
|
|
1 |
51 |
elsif ($args{'day'} =~ /^ascension/i) { }
|
|
|
1 |
50 |
elsif ($args{'day'} =~ /^pentecost/i) { }
|
|
|
1 |
49 |
elsif ($args{'day'} =~ /^trinity/i) { }
|
|
|
3 |
46 |
elsif ($args{'day'} =~ /^palm/i) { }
|
|
|
3 |
43 |
elsif ($args{'day'} =~ /saturday/i) { }
|
|
|
3 |
40 |
elsif ($args{'day'} =~ /friday/i) { }
|
|
|
3 |
37 |
elsif ($args{'day'} =~ /thursday/i) { }
|
|
|
5 |
32 |
elsif ($args{'day'} =~ /^\-?\d+$/i) { }
|
|
75
|
8 |
46 |
if ($self{'easter'} eq 'eastern')
|
|
80
|
1 |
53 |
unless $args{'as'} =~ /^(point|span)s?$/i
|
|
89
|
4 |
364 |
unless defined $dt and ref $dt ne '' and ref $dt ne 'SCALAR' and ref $dt ne 'HASH' and ref $dt ne 'ARRAY' and $dt->can('utc_rd_values')
|
|
97
|
15 |
349 |
$self->{'as'} eq 'span' ? :
|
|
134
|
319 |
270 |
if ($self->{'easter'} eq 'eastern' and $class ne 'DateTime::Calendar::Julian') { }
|
|
|
11 |
259 |
elsif ($class ne 'DateTime') { }
|
|
145
|
312 |
277 |
if ($start_mmdd le $latest_mmdd)
|
|
148
|
564 |
25 |
if ($start_mmdd gt $latest_mmdd or $easter_sunday <= $easter_start_dt)
|
|
156
|
327 |
262 |
if ref $event ne $class
|
|
163
|
4 |
49 |
unless defined $dt and ref $dt ne '' and ref $dt ne 'SCALAR' and ref $dt ne 'HASH' and ref $dt ne 'ARRAY' and $dt->can('utc_rd_values')
|
|
171
|
2 |
47 |
$self->{'as'} eq 'span' ? :
|
|
180
|
15 |
91 |
if ($self->{'easter'} eq 'eastern' and $class ne 'DateTime::Calendar::Julian') { }
|
|
|
11 |
80 |
elsif ($class ne 'DateTime') { }
|
|
191
|
101 |
5 |
if ($start_mmdd ge $earliest_mmdd)
|
|
194
|
67 |
39 |
if ($start_mmdd lt $earliest_mmdd or $easter_sunday >= $easter_start_dt)
|
|
200
|
23 |
83 |
if ref $event ne $class
|
|
206
|
4 |
12 |
unless defined $dt and ref $dt ne '' and ref $dt ne 'SCALAR' and ref $dt ne 'HASH' and ref $dt ne 'ARRAY' and $dt->can('utc_rd_values')
|
|
216
|
4 |
8 |
if ($self->is($dt))
|
|
221
|
0 |
4 |
if ref $easter ne $class
|
|
222
|
1 |
3 |
$self->{'as'} eq 'span' ? :
|
|
230
|
3 |
5 |
$previous_easter + $following_delta < $dt ? :
|
|
234
|
0 |
8 |
if ref $easter ne $class
|
|
235
|
1 |
7 |
$self->{'as'} eq 'span' ? :
|
|
242
|
4 |
22 |
unless defined $dt and ref $dt ne '' and ref $dt ne 'SCALAR' and ref $dt ne 'HASH' and ref $dt ne 'ARRAY' and $dt->can('utc_rd_values')
|
|
251
|
2 |
20 |
if ($self->{'easter'} eq 'western' and $class ne 'DateTime')
|
|
254
|
6 |
16 |
if ($self->{'easter'} eq 'eastern' and $class ne 'DateTime::Calendar::Julian')
|
|
261
|
14 |
8 |
$easter_this_year->ymd eq $dt->ymd ? :
|
|
278
|
3 |
4 |
if ($args{'inclusive'})
|
|
279
|
3 |
0 |
if ($self->is($args{'from'}))
|
|
282
|
2 |
1 |
$self->{'as'} eq 'span' ? :
|
|
284
|
3 |
0 |
if ($self->is($args{'to'}))
|
|
287
|
2 |
1 |
$self->{'as'} eq 'span' ? :
|
|
295
|
15 |
31 |
$self->{'as'} eq 'span' ? :
|
|
298
|
39 |
7 |
if $checkdate < $args{'to'}
|
|
302
|
5 |
2 |
$self->{'as'} eq 'span' ? :
|
|
314
|
10 |
17 |
if (exists $args{'inclusive'}) { }
|
|
|
9 |
8 |
elsif (exists $args{'from'} or exists $args{'to'}) { }
|
|
317
|
4 |
6 |
unless ref($args{'to'}) =~ /DateTime/ and ref($args{'from'}) =~ /DateTime/
|
|
318
|
4 |
2 |
if ($self->{'as'} eq 'point')
|
|
319
|
3 |
1 |
if ($args{'inclusive'}) { }
|
|
332
|
4 |
5 |
unless ref($args{'to'}) =~ /DateTime/ and ref($args{'from'}) =~ /DateTime/
|
|
333
|
3 |
2 |
if ($self->{'as'} eq 'point')
|
|
338
|
7 |
12 |
if ($self->{'as'} eq 'span') { }
|
|
350
|
76 |
217 |
if $_[0]->is_infinite
|
|
351
|
74 |
49 |
if $_[0]->is_infinite
|
|
379
|
424 |
642 |
$self->{'easter'} eq 'eastern' ? :
|
|
387
|
4 |
820 |
unless $year =~ /^\-?\d+$/
|
|
392
|
21 |
799 |
if ($epact_1 eq '25*') { }
|
|
|
61 |
738 |
elsif ($epact_1 == 24) { }
|
|
400
|
235 |
585 |
if ($epact_2 > 24)
|
|
405
|
629 |
191 |
if ($day > 31)
|
|
417
|
2 |
424 |
unless $year =~ /^\-?\d+$/
|
|
424
|
61 |
363 |
if ($epact_2 >= 24)
|
|
430
|
324 |
100 |
if ($day > 31)
|
|
441
|
2 |
1288 |
unless $year =~ /^\-?\d+$/
|
|
452
|
2 |
824 |
unless $year =~ /^\-?\d+$/
|
|
459
|
22 |
802 |
if ($epact == 25 and golden_number($year) > 11)
|
|
471
|
2 |
4 |
unless $year =~ /^\-?\d+$/
|
|
479
|
2 |
2 |
if ($c1 eq $c2) { }
|
|
489
|
2 |
824 |
unless $year =~ /^\-?\d+$/
|
|
501
|
2 |
428 |
unless $year =~ /^\-?\d+$/
|
|
512
|
2 |
4 |
unless $year =~ /^\-?\d+$/
|
|
520
|
2 |
2 |
if ($c1 eq $c2) { }
|
|
530
|
2 |
428 |
unless $year =~ /^\-?\d+$/
|