Condition Coverage

blib/lib/Games/Cards/Poker.pm
Criterion Covered Total %
condition 59 214 27.5


and 3 conditions

line !l l&&!r l&&r condition
685 5864 7 7541 $suba eq $subb and $indx < length $a
5871 0 7541 $suba eq $subb and $indx < length $a and $indx < length $b
691 4480 0 1391 $suba eq 'A' and $subb ne 'A'
0 3455 1025 $suba ne 'A' and $subb eq 'A'
3075 1 379 $suba eq 'K' and $subb ne 'K'
1 2546 529 $suba ne 'K' and $subb eq 'K'
2426 2 119 $suba eq 'Q' and $subb ne 'Q'
2 2196 230 $suba ne 'Q' and $subb eq 'Q'
2135 0 63 $suba eq 'J' and $subb ne 'J'
0 1978 157 $suba ne 'J' and $subb eq 'J'
1955 1 22 $suba eq 'T' and $subb ne 'T'
1 1881 74 $suba ne 'T' and $subb eq 'T'
720 1977 1417 0 $suit and length $_ < 2 || substr($_, 1, 1) ne substr($$aref[0], 1, 1)
744 0 0 0 @{$aref;} == 1 and length $$aref[0] == 5
759 0 0 0 @rprg > $rprv{$data[1]{'rank'}} + 1 and $data[2]{'rank'} eq $rprg[$rprv{$data[1]{'rank'}} + 1]
0 0 0 @rprg > $rprv{$data[1]{'rank'}} + 1 and $data[2]{'rank'} eq $rprg[$rprv{$data[1]{'rank'}} + 1] and @rprg > $rprv{$data[1]{'rank'}} + 2
0 0 0 @rprg > $rprv{$data[1]{'rank'}} + 1 and $data[2]{'rank'} eq $rprg[$rprv{$data[1]{'rank'}} + 1] and @rprg > $rprv{$data[1]{'rank'}} + 2 and $data[3]{'rank'} eq $rprg[$rprv{$data[1]{'rank'}} + 2]
0 0 0 @rprg > $rprv{$data[1]{'rank'}} + 1 and $data[2]{'rank'} eq $rprg[$rprv{$data[1]{'rank'}} + 1] and @rprg > $rprv{$data[1]{'rank'}} + 2 and $data[3]{'rank'} eq $rprg[$rprv{$data[1]{'rank'}} + 2] and @rprg > $rprv{$data[1]{'rank'}} + 3
0 0 0 @rprg > $rprv{$data[1]{'rank'}} + 1 and $data[2]{'rank'} eq $rprg[$rprv{$data[1]{'rank'}} + 1] and @rprg > $rprv{$data[1]{'rank'}} + 2 and $data[3]{'rank'} eq $rprg[$rprv{$data[1]{'rank'}} + 2] and @rprg > $rprv{$data[1]{'rank'}} + 3 and $data[4]{'rank'} eq $rprg[$rprv{$data[1]{'rank'}} + 3]
0 0 0 @rprg > $rprv{$data[1]{'rank'}} + 1 and $data[2]{'rank'} eq $rprg[$rprv{$data[1]{'rank'}} + 1] and @rprg > $rprv{$data[1]{'rank'}} + 2 and $data[3]{'rank'} eq $rprg[$rprv{$data[1]{'rank'}} + 2] and @rprg > $rprv{$data[1]{'rank'}} + 3 and $data[4]{'rank'} eq $rprg[$rprv{$data[1]{'rank'}} + 3] and $rprv{$data[1]{'rank'}} && $data[0]{'rank'} eq $rprg[$rprv{$data[1]{'rank'}} - 1] || $data[0]{'rank'} eq 'A' && $data[1]{'rank'} eq '5'
769 0 0 0 $data[0]{'suit'} eq $data[1]{'suit'} and $data[0]{'suit'} eq $data[2]{'suit'}
0 0 0 $data[0]{'suit'} eq $data[1]{'suit'} and $data[0]{'suit'} eq $data[2]{'suit'} and $data[0]{'suit'} eq $data[3]{'suit'}
0 0 0 $data[0]{'suit'} eq $data[1]{'suit'} and $data[0]{'suit'} eq $data[2]{'suit'} and $data[0]{'suit'} eq $data[3]{'suit'} and $data[0]{'suit'} eq $data[4]{'suit'}
774 0 0 0 $data[1]{'rank'} eq 'K' and $strt
0 0 0 $data[1]{'rank'} eq 'K' and $strt and $flsh
0 0 0 $strt and $flsh
0 0 0 $data[1]{'rank'} eq $data[2]{'rank'} and $data[1]{'rank'} eq $data[3]{'rank'}
0 0 0 $data[1]{'rank'} eq $data[2]{'rank'} and $data[1]{'rank'} eq $data[3]{'rank'} and $data[1]{'rank'} eq $data[4]{'rank'} || $data[1]{'rank'} eq $data[0]{'rank'}
0 0 0 $data[0]{'rank'} eq $data[1]{'rank'} and $data[3]{'rank'} eq $data[4]{'rank'}
0 0 0 $data[0]{'rank'} eq $data[1]{'rank'} and $data[3]{'rank'} eq $data[4]{'rank'} and $data[0]{'rank'} eq $data[2]{'rank'} || $data[3]{'rank'} eq $data[2]{'rank'}
0 0 0 $data[0]{'rank'} eq $data[1]{'rank'} and $data[0]{'rank'} eq $data[2]{'rank'}
0 0 0 $data[1]{'rank'} eq $data[2]{'rank'} and $data[2]{'rank'} eq $data[3]{'rank'}
0 0 0 $data[2]{'rank'} eq $data[3]{'rank'} and $data[3]{'rank'} eq $data[4]{'rank'}
0 0 0 $data[0]{'rank'} eq $data[1]{'rank'} and $data[2]{'rank'} eq $data[3]{'rank'}
0 0 0 $data[0]{'rank'} eq $data[1]{'rank'} and $data[3]{'rank'} eq $data[4]{'rank'}
0 0 0 $data[1]{'rank'} eq $data[2]{'rank'} and $data[3]{'rank'} eq $data[4]{'rank'}
779 0 0 0 $data[0]{'rank'} eq 'A' and $data[1]{'rank'} eq '5'
826 0 0 0 $data[0]{'rank'} eq 'A' and $data[1]{'rank'} eq '5'
938 1320 330 0 @hand == 5 and !@best || ScoreHand(@bhnd) > ScoreHand(@hand)
954 0 0 14 @best == 5 and @crdz >= 5
1043 7 0 4 length $shrt < 5 and $shrt =~ /^\d+$/
1064 0 0 0 length $shrt < 5 and $shrt =~ /^\d+$/
1102 0 0 0 $crdz[$_ - 1] eq $crdz[$_] and $crdz[$_ + 1] eq $crdz[$_]
1112 0 0 0 $crdz[0] eq 'A' and $crdz[1] eq '5'
1207 0 1 9 defined $blim and $blim < 7462
1208 10 0 0 defined $glim and $glim < 7462
1218 0 0 0 defined $hole and $hole < $pdat{'coun'}{'shorthand_holes'}
1220 0 0 0 defined $flop and $flop < $pdat{'coun'}{'shorthand_flops'}
1222 0 0 0 defined $turn and $turn < 13
1224 0 0 0 defined $rivr and $rivr < 13

or 2 conditions

line l !l condition
960 7474 3 shift() or 0
981 10 0 shift() || (return 0)
999 9 0 shift() || (return 0)
1015 14 0 shift() || (return 0)
1020 12 0 shift() || (return 0)
1032 0 0 shift() || (return 0)
1150 3 0 shift() || (return 0)
1209 0 10 shift() || 'hndz'

or 3 conditions

line l !l&&r !l&&!r condition
720 1 648 768 length $_ < 2 || substr($_, 1, 1) ne substr($$aref[0], 1, 1)
728 0 0 0 @hand == 1 or @hand == 5
759 0 0 0 $rprv{$data[1]{'rank'}} && $data[0]{'rank'} eq $rprg[$rprv{$data[1]{'rank'}} - 1] || $data[0]{'rank'} eq 'A' && $data[1]{'rank'} eq '5'
774 0 0 0 $data[1]{'rank'} eq $data[4]{'rank'} || $data[1]{'rank'} eq $data[0]{'rank'}
0 0 0 $data[0]{'rank'} eq $data[2]{'rank'} || $data[3]{'rank'} eq $data[2]{'rank'}
0 0 0 $data[0]{'rank'} eq $data[1]{'rank'} and $data[0]{'rank'} eq $data[2]{'rank'} or $data[1]{'rank'} eq $data[2]{'rank'} and $data[2]{'rank'} eq $data[3]{'rank'}
0 0 0 $data[0]{'rank'} eq $data[1]{'rank'} and $data[0]{'rank'} eq $data[2]{'rank'} or $data[1]{'rank'} eq $data[2]{'rank'} and $data[2]{'rank'} eq $data[3]{'rank'} or $data[2]{'rank'} eq $data[3]{'rank'} and $data[3]{'rank'} eq $data[4]{'rank'}
0 0 0 $data[0]{'rank'} eq $data[1]{'rank'} and $data[2]{'rank'} eq $data[3]{'rank'} or $data[0]{'rank'} eq $data[1]{'rank'} and $data[3]{'rank'} eq $data[4]{'rank'}
0 0 0 $data[0]{'rank'} eq $data[1]{'rank'} and $data[2]{'rank'} eq $data[3]{'rank'} or $data[0]{'rank'} eq $data[1]{'rank'} and $data[3]{'rank'} eq $data[4]{'rank'} or $data[1]{'rank'} eq $data[2]{'rank'} and $data[3]{'rank'} eq $data[4]{'rank'}
0 0 0 $data[0]{'rank'} eq $data[1]{'rank'} or $data[1]{'rank'} eq $data[2]{'rank'}
0 0 0 $data[0]{'rank'} eq $data[1]{'rank'} or $data[1]{'rank'} eq $data[2]{'rank'} or $data[2]{'rank'} eq $data[3]{'rank'}
0 0 0 $data[0]{'rank'} eq $data[1]{'rank'} or $data[1]{'rank'} eq $data[2]{'rank'} or $data[2]{'rank'} eq $data[3]{'rank'} or $data[3]{'rank'} eq $data[4]{'rank'}
938 15 13 302 !@best || ScoreHand(@bhnd) > ScoreHand(@hand)
964 14955 641 0 @hand == 1 or @hand == 5
1037 9 2 0 @hand == 1 or @hand == 5
1058 0 0 0 @hand == 1 or @hand == 5