Branch Coverage

blib/lib/Calendar/List.pm
Criterion Covered Total %
branch 70 70 100.0


line true false branch
150 29 21 @_ < 2 || ref $_[1] eq 'HASH' ? :
191 79 17 unless ref $_[0] eq 'HASH'
192 55 41 unless ref $_[0] eq 'HASH'
193 78 18 if ref $_[0] eq 'HASH'
195 23 73 unless $format1
196 53 43 unless $format2
198 1 95 if _setargs($usrhash, $format1)
210 1000 186 unless ($Settings{'exclude'}{'days'}[$nowdow] or $Settings{'exclude'}{'months'}[$nowmon])
216 994 6 unless $Settings{'holidays'}{$fdate}
220 47 1548 if compare_dates($Settings{'nowdate'}, $Settings{'enddate'}) == 0
241 1 50 unless $hash
248 307 201 if ($wantarray) { }
256 29 21 if $wantarray
273 1 45 unless $hash
287 18 3 if @{$Settings{'selected'};} and $hash->{$key}[0] == $Settings{'selected'}[0] and $hash->{$key}[1] == $Settings{'selected'}[1] and $hash->{$key}[2] == $Settings{'selected'}[2]
295 18 468 if $selected
322 18 91 unless $hash
327 66 285 if (lc $key1 eq 'exclude') { }
39 246 elsif (lc $key1 eq 'select') { }
90 156 elsif (lc $key1 eq 'start') { }
75 81 elsif (lc $key1 eq 'end') { }
34 47 elsif (lc $key1 eq 'options') { }
46 1 elsif (lc $key1 eq 'name') { }
332 92 55 if (defined $inx) { }
19 36 elsif ($inx = $months{lc $key2}) { }
16 20 elsif (lc $key2 eq 'weekend') { }
15 5 elsif (lc $key2 eq 'weekday') { }
3 3 elsif (lc $key2 eq 'holidays' and ref $hash->{$key1}{$key2} eq 'ARRAY') { }
356 197 265 if $Settings{'exclude'}{'days'}[$inx]
357 1 65 if $count == 7
359 19 761 if $Settings{'exclude'}{'months'}[$inx]
360 1 64 if $count == 12
387 1 88 unless $Settings{'startdate'}
388 1 87 if $Settings{'enddate'} and compare_dates($Settings{'enddate'}, $Settings{'startdate'}) < 0
389 2 85 unless $Settings{'maxcount'}