| line |
true |
false |
branch |
|
654
|
0 |
1 |
unless @_ |
|
655
|
0 |
1 |
if ref $_[0] eq 'ARRAY' |
|
657
|
0 |
1 |
if ($aflg) { } |
|
662
|
49 |
2 |
if ($rand != $indx) |
|
666
|
0 |
1 |
if ($aflg) { } |
|
671
|
0 |
669 |
unless @_ |
|
672
|
669 |
0 |
if ref $_[0] eq 'ARRAY' |
|
673
|
669 |
0 |
if ($aflg) { } |
|
691
|
1391 |
4480 |
if ($suba eq 'A' and $subb ne 'A') { } |
|
|
1025 |
3455 |
elsif ($suba ne 'A' and $subb eq 'A') { } |
|
|
379 |
3076 |
elsif ($suba eq 'K' and $subb ne 'K') { } |
|
|
529 |
2547 |
elsif ($suba ne 'K' and $subb eq 'K') { } |
|
|
119 |
2428 |
elsif ($suba eq 'Q' and $subb ne 'Q') { } |
|
|
230 |
2198 |
elsif ($suba ne 'Q' and $subb eq 'Q') { } |
|
|
63 |
2135 |
elsif ($suba eq 'J' and $subb ne 'J') { } |
|
|
157 |
1978 |
elsif ($suba ne 'J' and $subb eq 'J') { } |
|
|
22 |
1956 |
elsif ($suba eq 'T' and $subb ne 'T') { } |
|
|
74 |
1882 |
elsif ($suba ne 'T' and $subb eq 'T') { } |
|
|
7 |
1875 |
elsif ($suba eq $subb) { } |
|
702
|
0 |
7 |
if (length $a > $indx) { } |
|
|
7 |
0 |
elsif (length $b > $indx) { } |
|
707
|
669 |
0 |
if ($aflg) { } |
|
712
|
0 |
662 |
unless @_ |
|
713
|
650 |
12 |
if ref $_[0] eq 'ARRAY' |
|
715
|
650 |
12 |
if ($aflg) { } |
|
717
|
662 |
0 |
unless @{$aref;} == 1 |
|
720
|
649 |
768 |
if $suit and length $_ < 2 || substr($_, 1, 1) ne substr($$aref[0], 1, 1) |
|
723
|
13 |
649 |
if $suit |
|
728
|
0 |
0 |
unless @hand == 1 or @hand == 5 |
|
729
|
0 |
0 |
if ref $hand[0] eq 'ARRAY' |
|
730
|
0 |
0 |
if ($aflg) { } |
|
735
|
0 |
0 |
unless @{$aref;} == 1 |
|
737
|
0 |
0 |
if (@{$aref;} == 1) { } |
|
744
|
0 |
0 |
if @{$aref;} == 1 and length $$aref[0] == 5 |
|
759
|
0 |
0 |
if (@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 |
if ($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 |
if ($data[1]{'rank'} eq 'K' and $strt and $flsh) { } |
|
|
0 |
0 |
elsif ($strt and $flsh) { } |
|
|
0 |
0 |
elsif ($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 |
elsif ($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 |
elsif ($flsh) { } |
|
|
0 |
0 |
elsif ($strt) { } |
|
|
0 |
0 |
elsif ($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 |
elsif ($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 |
elsif ($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'}) { } |
|
779
|
0 |
0 |
if $data[0]{'rank'} eq 'A' and $data[1]{'rank'} eq '5' |
|
786
|
0 |
0 |
if ($data[1]{'rank'} eq $data[0]{'rank'}) { } |
|
799
|
0 |
0 |
if ($data[0]{'rank'} eq $data[2]{'rank'}) { } |
|
815
|
0 |
0 |
if $xtr0 |
|
816
|
0 |
0 |
if $xtr1 == 9 |
|
817
|
0 |
0 |
if $xtr2 == 10 |
|
826
|
0 |
0 |
if $data[0]{'rank'} eq 'A' and $data[1]{'rank'} eq '5' |
|
835
|
0 |
0 |
if ($data[0]{'rank'} eq $data[2]{'rank'}) { } |
|
|
0 |
0 |
elsif ($data[1]{'rank'} eq $data[3]{'rank'}) { } |
|
859
|
0 |
0 |
if ($data[0]{'rank'} eq $data[1]{'rank'}) { } |
|
860
|
0 |
0 |
if ($data[2]{'rank'} eq $data[3]{'rank'}) { } |
|
883
|
0 |
0 |
if ($data[0]{'rank'} eq $data[1]{'rank'}) { } |
|
|
0 |
0 |
elsif ($data[1]{'rank'} eq $data[2]{'rank'}) { } |
|
|
0 |
0 |
elsif ($data[2]{'rank'} eq $data[3]{'rank'}) { } |
|
906
|
0 |
0 |
if $xtr0 == 9 |
|
919
|
0 |
0 |
if $xtr0 |
|
920
|
0 |
0 |
if $xtr1 == 9 |
|
921
|
0 |
0 |
if $xtr2 == 10 |
|
932
|
0 |
15 |
unless @crdz >= 5 |
|
938
|
28 |
302 |
if (@hand == 5 and !@best || ScoreHand(@bhnd) > ScoreHand(@hand)) |
|
950
|
8 |
6 |
if (@crdz <= 2) |
|
954
|
0 |
14 |
unless @best == 5 and @crdz >= 5 |
|
964
|
0 |
15596 |
unless @hand == 1 or @hand == 5 |
|
965
|
2 |
15594 |
if ref $hand[0] eq 'ARRAY' |
|
966
|
2 |
15594 |
if ($aflg) { } |
|
968
|
14953 |
643 |
if (@{$aref;} == 1) { } |
|
970
|
0 |
15596 |
if ($slow) { } |
|
975
|
0 |
0 |
if (@_) { } |
|
982
|
3 |
7 |
if (length $card == 1) { } |
|
983
|
1 |
2 |
if ($card =~ /^[shdc]$/i) { } |
|
988
|
9 |
1 |
if (exists $data{'rank'}) |
|
990
|
7 |
2 |
if exists $data{'suit'} |
|
992
|
8 |
2 |
if (exists $data{'suit'}) |
|
993
|
8 |
24 |
if /^$data{'suit'}/i |
|
1002
|
8 |
58 |
if ($name =~ s/$rnam[$indx]//i) |
|
1005
|
8 |
17 |
if ($name =~ s/$_//i) |
|
1021
|
0 |
12 |
if (length $card == 1) |
|
1022
|
0 |
0 |
if ($card =~ /^[shdc]$/i) { } |
|
1026
|
12 |
151 |
if $card eq $deck[$indx] |
|
1037
|
0 |
11 |
unless @hand == 1 or @hand == 5 |
|
1038
|
2 |
9 |
if ref $hand[0] eq 'ARRAY' |
|
1039
|
2 |
9 |
if ($aflg) { } |
|
1041
|
7 |
4 |
if (@{$aref;} == 1) { } |
|
1043
|
4 |
7 |
if (length $shrt < 5 and $shrt =~ /^\d+$/) { } |
|
1050
|
11 |
71 |
if $scor >= $_ |
|
1058
|
0 |
0 |
unless @hand == 1 or @hand == 5 |
|
1059
|
0 |
0 |
if ref $hand[0] eq 'ARRAY' |
|
1060
|
0 |
0 |
if ($aflg) { } |
|
1062
|
0 |
0 |
if (@{$aref;} == 1) { } |
|
1064
|
0 |
0 |
if (length $shrt < 5 and $shrt =~ /^\d+$/) { } |
|
1071
|
0 |
0 |
if ($hnam =~ /^(High Card|Flush)$/) { } |
|
|
0 |
0 |
elsif ($hnam eq 'One Pair') { } |
|
|
0 |
0 |
elsif ($hnam eq 'Two Pair') { } |
|
|
0 |
0 |
elsif ($hnam eq 'Three-of-a-Kind') { } |
|
|
0 |
0 |
elsif ($hnam =~ /(^Straight|Flush$)/) { } |
|
|
0 |
0 |
elsif ($hnam eq 'Full House') { } |
|
|
0 |
0 |
elsif ($hnam eq 'Four-of-a-Kind') { } |
|
1076
|
0 |
0 |
if ($crdz[$_ - 1] eq $crdz[$_]) |
|
1078
|
0 |
0 |
if ($_ == 1) { } |
|
1087
|
0 |
0 |
if ($crdz[$_ - 1] eq $crdz[$_]) |
|
1088
|
0 |
0 |
if (defined $set0) { } |
|
1090
|
0 |
0 |
if ($_ == 3) { } |
|
|
0 |
0 |
elsif ($ndx0 == 1) { } |
|
1102
|
0 |
0 |
if ($crdz[$_ - 1] eq $crdz[$_] and $crdz[$_ + 1] eq $crdz[$_]) |
|
1105
|
0 |
0 |
if ($_ == 1) { } |
|
1112
|
0 |
0 |
if ($crdz[0] eq 'A' and $crdz[1] eq '5') { } |
|
1121
|
0 |
0 |
if ($crdz[1] eq $crdz[2]) { } |
|
1130
|
0 |
0 |
if ($crdz[0] eq $crdz[1]) { } |
|
1141
|
0 |
3 |
unless @hand >= 1 |
|
1142
|
1 |
2 |
if ref $hand[0] eq 'ARRAY' |
|
1143
|
1 |
2 |
if ($aflg) { } |
|
1156
|
0 |
0 |
unless @hand >= 1 |
|
1157
|
0 |
0 |
if ref $hand[0] eq 'ARRAY' |
|
1158
|
0 |
0 |
if ($aflg) { } |
|
1165
|
0 |
0 |
unless @dech >= 1 |
|
1166
|
0 |
0 |
if ref $dech[0] eq 'ARRAY' |
|
1167
|
0 |
0 |
if ($aflg) { } |
|
1174
|
0 |
3 |
unless @_ |
|
1176
|
0 |
3 |
if length $card == 1 |
|
1177
|
0 |
3 |
if $card =~ / of / |
|
1178
|
3 |
0 |
if ref $_[0] eq 'ARRAY' |
|
1180
|
3 |
0 |
if ($aflg) { } |
|
1184
|
3 |
3 |
if ($$aref[$indx] eq $card) |
|
1189
|
3 |
0 |
if ($aflg) { } |
|
1195
|
5 |
8 |
if @crdz >= 5 |
|
1196
|
0 |
8 |
if ref $crdz[0] eq 'ARRAY' |
|
1197
|
0 |
8 |
if ($aflg) { } |
|
|
4 |
4 |
elsif (@crdz > 1) { } |
|
1202
|
8 |
10060 |
if /$cshr/ |
|
1207
|
1 |
9 |
unless defined $blim and $blim < 7462 |
|
1208
|
10 |
0 |
unless defined $glim and $glim < 7462 |
|
1218
|
0 |
0 |
unless defined $hole and $hole < $pdat{'coun'}{'shorthand_holes'} |
|
1220
|
0 |
0 |
unless defined $flop and $flop < $pdat{'coun'}{'shorthand_flops'} |
|
1222
|
0 |
0 |
unless defined $turn and $turn < 13 |
|
1224
|
0 |
0 |
unless defined $rivr and $rivr < 13 |