Branch Coverage

blib/lib/Date/Holidays/AU.pm
Criterion Covered Total %
branch 280 280 100.0


line true false branch
30 154 2 if (exists $params{'year'} and defined $params{'year'}) { }
36 2 154 unless ($params{'year'} =~ /^\d{1,4}$/msx)
41 4 150 unless (defined $params{'state'})
48 1 153 unless ($allowed_states{$state})
55 153 202 if $key eq "year"
56 153 49 if $key eq "state"
57 5 44 unless $params{$key}
58 32 12 if (ref $params{$key}) { }
59 30 2 if (ref $params{$key} eq "ARRAY")
73 42 111 if ($state eq "TAS")
74 32 10 if (exists $params{'holidays'})
75 30 2 if (ref $params{'holidays'} and ref $params{'holidays'} eq 'ARRAY') { }
81 6 28 if ($allowed eq "devonportcup")
97 151 74 if ($holiday eq '0101') { }
106 151 12 if ($holiday eq '0126') { }
113 31 120 if ($state eq 'VIC') { }
29 91 elsif ($state eq 'WA') { }
6 85 elsif ($state eq 'SA') { }
7 78 elsif ($state eq 'ACT') { }
40 38 elsif ($state eq 'TAS') { }
140 30 10 if (exists $params{'holidays'})
144 6 28 if ($allowed eq 'devonportcup') { }
1 27 elsif ($allowed eq 'hobartregatta') { }
4 23 elsif ($allowed eq 'launcestoncup') { }
1 22 elsif ($allowed eq 'kingislandshow') { }
177 150 490 if ($count == 0) { }
150 340 elsif ($count == 1) { }
150 190 elsif ($count == 2) { }
150 40 elsif ($count == 3) { }
194 85 65 if ($state eq 'VIC' or $state eq 'TAS' or $state eq 'NSW') { }
202 65 15 if ($holiday eq '0425') { }
210 6 144 if ($state eq 'SA') { }
15 129 elsif ($state eq 'NT') { }
40 89 elsif ($state eq 'TAS') { }
222 30 10 if (exists $params{'holidays'})
226 2 32 if ($allowed eq "agfest")
235 29 121 if ($state eq 'WA') { }
248 30 120 if ($state eq 'VIC') { }
8 112 elsif ($state eq 'QLD') { }
6 106 elsif ($state eq 'SA') { }
15 91 elsif ($state eq 'NT') { }
29 62 elsif ($state eq 'WA') { }
7 55 elsif ($state eq 'ACT') { }
40 15 elsif ($state eq 'TAS') { }
249 1 29 if (exists $params{'no_melbourne_cup'} and $params{'no_melbourne_cup'}) { }
261 7 1 unless (exists $params{'no_show_day'} and $params{'no_show_day'})
294 1 1 if (exists $params{'include_bank_holiday'} and $params{'include_bank_holiday'})
308 30 10 if (exists $params{'holidays'})
312 8 26 if ($allowed eq 'burnieshow') { }
1 25 elsif ($allowed eq 'launcestonshow') { }
1 24 elsif ($allowed eq 'flindersislandshow') { }
3 21 elsif ($allowed eq 'hobartshow') { }
3 18 elsif ($allowed eq 'recreationday') { }
4 14 elsif ($allowed eq 'devonportshow') { }
352 3 1 if (exists $params{'include_bank_holiday'} and $params{'include_bank_holiday'})
374 1 147 unless (defined $state)
379 5 44 unless $params->{$key}
380 32 12 if (ref $params->{$key}) { }
381 30 2 if (ref $params->{$key} eq "ARRAY")
396 108 35 if ($holidays->{$date}) { }
415 6 142 if ($state eq "SA")
431 8 140 if ($wday == 5) { }
48 92 elsif ($wday == 6) { }
57 35 elsif ($wday == 0) { }
438 1 7 if ($state eq "NSW" and $year > 2011)
460 1 47 if ($state eq "NSW" and $year > 2011)
476 1 56 if ($state eq "NSW" and $year > 2011)
502 5 10 if (exists $params->{'region'} and defined $params->{'region'}) { }
505 4 1 if ($nt_show_day{$region}) { }
526 50 220 if ($wday == 5)
529 256 14 if ($fridays < $num_fridays)
556 5 2 if ($wday >= 1 and $wday <= 3) { }
565 19 84 if ($wday == 3)
568 96 7 if ($wednesdays < $num_wednesdays)
585 1 3 if ($wday == 4) { }
619 1 3 if ($year % 4) { }
622 1 2 if ($year % 100) { }
626 1 1 if ($year % 400) { }
639 4 11 if ($wday == 3)
642 11 4 if ($wednesdays < 1)
660 80 300 if ($wday == 1)
663 340 40 if ($mondays < 2)
681 1 1 if ($wday == 2)
684 1 1 if ($tuesdays < 1)
702 2 7 if ($wday == 1)
705 8 1 if ($mondays < 2)
723 21 114 if ($wday == 1)
726 128 7 if ($mondays < 3)
744 3 5 if ($wday == 1)
747 5 3 if ($mondays < 1)
765 29 38 if ($wday == 2)
768 38 29 if ($tuesdays < 1)
786 29 113 if ($wday == 1)
789 113 29 if ($mondays < 1)
807 242 1306 if ($wday == 1)
810 1427 121 if ($mondays < 2)
820 3 3 if ($year == 2006)
831 9 39 if ($wday == 1)
834 45 3 if ($mondays < 3)
844 3 3 if ($year != 2006)
855 6 33 if ($wday == 1)
858 36 3 if ($mondays < 2)
876 62 295 if ($wday == 1)
879 326 31 if ($mondays < 2)
900 19 12 if ($year < 2015) { }
11 1 elsif ($grand_final_eve_day{$year}) { }
925 29 93 if ($wday == 1)
928 93 29 if ($mondays < 1)
946 15 19 if ($wday == 1)
949 19 15 if ($mondays < 1)
967 2 10 if ($wday == 4)
970 10 2 if ($thursdays < 1)
988 8 7 if ($wday == 6)
991 7 8 if ($saturdays < 1)
996 1 7 if ($day == 1) { }
1014 2 7 if ($wday == 6)
1017 8 1 if ($saturdays < 2)
1035 3 13 if ($wday == 6)
1038 15 1 if ($saturdays < 3)
1056 12 57 if ($wday == 6)
1059 66 3 if ($saturdays < 4)
1077 14 4 if ($wday == 1)
1080 4 14 if ($mondays < 1)
1098 4 6 if ($wday == 1)
1101 6 4 if ($mondays < 1)
1119 28 59 if ($wday == 1)
1122 59 28 if ($mondays < 1)
1156 28 1 if ($wa_queens_bday{$year}) { }
1178 58 92 if ($month == 2) { }
1183 1 91 if ($day == 2) { }
2 89 elsif ($day == 1) { }
1204 58 92 if ($month == 2) { }
1205 2 56 if ($day == $days_in_month[$month]) { }
1215 40 110 if ($state eq "TAS")
1216 5 35 if ($month == 2) { }
1217 1 4 if ($day == $days_in_month[$month]) { }
1 3 elsif ($day + 1 == $days_in_month[$month]) { }
1241 367 85 if ($params->{'day_in_lieu'})
1244 35 332 if ($wday == 0) { }
66 266 elsif ($wday == 6) { }