| line |
true |
false |
branch |
|
33
|
1 |
37 |
ref $card_index ? : |
|
34
|
1 |
37 |
unless ($card) |
|
44
|
2 |
2 |
if ($found) |
|
65
|
1 |
1 |
if ($count <= 4) |
|
76
|
2 |
4 |
if (exists $mapped{$card->suit} and exists $mapped{$card->suit}{$card->symbol}) |
|
89
|
1 |
123 |
if ($count <= 4) |
|
92
|
121 |
2 |
unless ref $card |
|
106
|
13 |
1 |
$self->starter ? : |
|
107
|
13 |
1 |
$starter ? : |
|
109
|
4 |
10 |
if ($self->crib and scalar @{$self->crib;}) |
|
110
|
4 |
0 |
$starter ? : |
|
113
|
4 |
10 |
$self->crib_score ? : |
|
121
|
1 |
2 |
if ($found) |
|
126
|
2 |
0 |
if ($self->crib) |
|
129
|
1 |
1 |
if ($found) |
|
141
|
1 |
1 |
unless (scalar @{$self->cards;} == 6) |
|
154
|
2 |
13 |
if ($score->total_score + 0 > $best{'score'}) |
|
173
|
4 |
9 |
if ($_->match($card)) |
|
177
|
1 |
4 |
unless ($found) |
|
183
|
1 |
2 |
unless ($find_all) |
|
204
|
12 |
0 |
if (not ref $test and !$best || $best < $test) |
|
210
|
1 |
3 |
unless (defined $best) |
|
217
|
3 |
0 |
if ($best == 0) |
|
220
|
3 |
0 |
if scalar @available > 1 and grep {$_->value != 5;} @available |
|
221
|
0 |
3 |
unless (scalar @available) |