| line |
true |
false |
branch |
|
8
|
1 |
0 |
if ($@) { }
|
|
10
|
0 |
1 |
if $Set::Object::VERSION < 1.09
|
|
142
|
36 |
0 |
unless ($rev_regions{'Auckland'})
|
|
151
|
0 |
10 |
unless defined $region
|
|
152
|
6 |
4 |
if (looks_like_number $region) { }
|
|
162
|
0 |
34 |
unless defined $region
|
|
163
|
5 |
29 |
if (looks_like_number $region) { }
|
|
164
|
1 |
4 |
unless exists $regions{$region}
|
|
174
|
0 |
93 |
unless my $label = shift()
|
|
176
|
65 |
28 |
if (not looks_like_number $label and exists $HOLIDAYS{$label . " $AD"})
|
|
182
|
27 |
1 |
if ($followed = $FOLLOW{$region}) { }
|
|
183
|
3 |
24 |
if (looks_like_number $followed)
|
|
190
|
12 |
16 |
unless ($followed =~ /Day$/)
|
|
200
|
7 |
25 |
if ($falls_on >= 6)
|
|
225
|
49 |
129 |
if ($value =~ /^(\d\d)(\d\d)\+?$/) { }
|
|
|
60 |
69 |
elsif ($value =~ /^(\d+(?:st|nd|rd|th) \w+day in \w+)(.*)$/i) { }
|
|
|
49 |
20 |
elsif ($value =~ /^Closest (\w+day) to (\d\d)(\d\d)(.*)$/i) { }
|
|
|
20 |
0 |
elsif ($value =~ /^Easter(.*)$/i) { }
|
|
240
|
43 |
6 |
if (my $diff = ($wanted - $got + 7) % 7) { }
|
|
242
|
20 |
23 |
if ($diff < 4) { }
|
|
258
|
40 |
89 |
if $add
|
|
269
|
0 |
80 |
unless my $when = interpret_date($year, $HOLIDAYS{$holiday} || die())
|
|
272
|
32 |
48 |
if ($when =~ s/\+//)
|
|
298
|
0 |
80 |
if ($region)
|
|
317
|
0 |
168 |
if (exists $$hols{$mmdd})
|
|
321
|
84 |
84 |
if ($region)
|
|
328
|
84 |
0 |
if ($when eq $mmdd)
|
|
338
|
1 |
5 |
if $holiday_aliases{$holname}
|
|
339
|
0 |
6 |
unless exists $HOLIDAYS{$holname}
|
|
341
|
3 |
3 |
if ($NATIONAL_HOLIDAYS->has($holname)) { }
|
|
345
|
1 |
2 |
if ($date =~ s/\+$//)
|
|
349
|
0 |
2 |
if $date eq '1231'
|