Condition Coverage

blib/lib/Games/Cards/Poker.pm
Criterion Covered Total %
condition 69 153 45.1


and 3 conditions

line !l l&&!r l&&r condition
60 4800655 7 5296513 $suba eq $subb and $indx < length $a
4800662 0 5296513 $suba eq $subb and $indx < length $a and $indx < length $b
64 4274019 0 526643 $suba eq 'A' and $subb ne 'A'
0 4109623 164396 $suba ne 'A' and $subb eq 'A'
3571476 1 538146 $suba eq 'K' and $subb ne 'K'
1 3319749 251727 $suba ne 'K' and $subb eq 'K'
3086553 2 233195 $suba eq 'Q' and $subb ne 'Q'
2 2915487 171066 $suba ne 'Q' and $subb eq 'Q'
2639008 0 276481 $suba eq 'J' and $subb ne 'J'
0 2272114 366894 $suba ne 'J' and $subb eq 'J'
2098489 1 173624 $suba eq 'T' and $subb ne 'T'
1 1973104 125385 $suba ne 'T' and $subb eq 'T'
88 0 568582 0 defined $aref and @{$aref;} == 1
89 0 0 2842991 defined $cndx and defined $aref->[$cndx]
90 1557716 1285275 0 $suit and length $aref->[$cndx] < 2 || substr($aref->[$cndx], 1, 1) ne substr($aref->[0], 1, 1)
102 427728 106932 0 @hand == 5 and !@best || defined $bhsi && defined $rhsi && $bhsi > $rhsi
112 0 0 18256 @best == 5 and @crdz >= 5
152 0 619932 0 defined $shrt and exists $zdnh{$shrt}
180 0 0 0 $scr0 =~ /^\d+$/ and $scr1 =~ /^\d+$/
181 0 0 0 $scr0 > 21 and $scr1 > 21
182 0 0 0 $scr1 <= 21 and $scr1 > $scr0
228 0 36421 4 defined $shrt and length $shrt < 5
36421 0 4 defined $shrt and length $shrt < 5 and $shrt =~ /^\d+$/
230 0 92967 36425 defined $scor and $scor >= $_
240 0 0 0 defined $shrt and length $shrt < 5
0 0 0 defined $shrt and length $shrt < 5 and $shrt =~ /^\d+$/
268 0 0 0 $crdz[$_ - 1] eq $crdz[$_] and $crdz[$_ + 1] eq $crdz[$_]
276 0 0 0 $crdz[0] eq 'A' and $crdz[1] eq '5'
353 0 1 7471 defined $blim and $blim < 7462
354 10 0 7462 defined $glim and $glim < 7462
355 7472 0 0 $scop ne 'hndz' and $blim > $#{$pd8a{$scop};}
370 0 0 0 defined $hole and $hole < $pd8a{'coun'}{'shorthand_holes'}
372 0 0 0 defined $flop and $flop < $pd8a{'coun'}{'shorthand_flops'}
373 0 0 0 defined $turn and $turn < 13
375 0 0 0 defined $rivr and $rivr < 13
393 0 0 16 defined $bord and length $bord >= 3

or 2 conditions

line l !l condition
179 0 0 shift() || 0
0 0 shift() || 0
186 10 0 shift() || (return 0)
199 9 0 shift() || (return 0)
209 104572 0 shift() || (return 0)
212 12 0 shift() || (return 0)
220 0 0 shift() || (return 'As')
306 18245 0 shift() || (return 0)
355 7462 10 shift() || 'hndz'

or 3 conditions

line l !l&&r !l&&!r condition
90 1 562787 722487 length $aref->[$cndx] < 2 || substr($aref->[$cndx], 1, 1) ne substr($aref->[0], 1, 1)
102 18257 0 88675 !@best || defined $bhsi && defined $rhsi && $bhsi > $rhsi
143 0 0 7479 not defined $hndx or $hndx =~ /\D/
0 0 7479 not defined $hndx or $hndx =~ /\D/ or $hndx > $#{$pd8a{'hndz'};}
146 51372 568560 0 @hand == 1 or @hand == 5
181 0 0 0 $scr0 == $scr1 or $scr0 > 21 and $scr1 > 21
182 0 0 0 $scr0 > 21 or $scr1 <= 21 and $scr1 > $scr0
222 36423 2 0 @hand == 1 or @hand == 5
234 0 0 0 @hand == 1 or @hand == 5