| line |
true |
false |
branch |
|
65
|
0 |
0 |
if $switch |
|
68
|
0 |
0 |
if ($self->board->score->player1->{'current'} > 120) { } |
|
|
0 |
0 |
elsif ($self->board->score->player2->{'current'} > 120) { } |
|
73
|
0 |
0 |
if $winner |
|
88
|
0 |
0 |
unless ($@) |
|
89
|
0 |
0 |
if ($self->board->score->player1->{'current'} > 120) { } |
|
|
0 |
0 |
elsif ($self->board->score->player2->{'current'} > 120) { } |
|
99
|
0 |
0 |
unless (grep {not $_->used;} @{$hands->player2->cards;}, @{$hands->player1->cards;}) |
|
106
|
0 |
0 |
if ($self->board->no_player_can_play) |
|
130
|
0 |
0 |
$self->dealer ? : |
|
131
|
0 |
0 |
$self->dealer ? : |
|
160
|
0 |
0 |
if ($self->board->next_to_play->player eq "player1") |
|
162
|
0 |
0 |
if ($card->can('go') and $card->go) { } |
|
167
|
0 |
0 |
if ($self->board->current_play_score == 31) |
|
172
|
0 |
0 |
if ($self->board->score->player1->{'current'} > 120) |
|
178
|
0 |
0 |
if ($self->board->player_cannot_play("player2")) |
|
179
|
0 |
0 |
unless ($self->board->player_cannot_play("player1")) |
|
199
|
0 |
0 |
if ($number =~ /go/i) |
|
201
|
0 |
0 |
if (scalar @can and ref $can[0]) |
|
208
|
0 |
0 |
if ($number eq "b") |
|
210
|
0 |
0 |
if ($card->can('go') and $card->go) { } |
|
215
|
0 |
0 |
if ($self->board->current_play_score == 31) |
|
222
|
0 |
0 |
if (not $number =~ /^\d+$/ or $number > scalar @{$hands->player2->cards;}) |
|
229
|
0 |
0 |
if ($self->board->current_play_score == 31) |
|
247
|
0 |
0 |
if (not $number =~ /^\d+$/ or $number > 52) |
|
265
|
0 |
0 |
$low->value < $bot->value ? : |
|
267
|
0 |
0 |
$dealer ? : |
|
273
|
0 |
0 |
$dealer ? : |
|
308
|
0 |
0 |
if ($cards_index =~ /b/i) { } |
|
314
|
0 |
0 |
if $_ =~ /^\d+$/ |
|
317
|
0 |
0 |
unless (scalar @cards == 2) |
|
337
|
0 |
0 |
if ($self->dealer) |
|
354
|
0 |
0 |
if (not $number =~ /^\d+$/ or $number > 52) |
|
371
|
13 |
10 |
$card->suit =~ /H|D/ ? : |
|
385
|
4 |
19 |
$card->symbol =~ /10/ ? : |
|
|
4 |
19 |
$card->symbol =~ /10/ ? : |
|
402
|
1 |
1 |
unless $num |
|
426
|
1 |
5 |
if (not $all and $_->used) |
|
443
|
1 |
1 |
unless scalar @{$cards;} |
|
466
|
0 |
0 |
$it ? : |
|
467
|
0 |
0 |
!$it && $_ < 10 ? : |
|
470
|
0 |
0 |
$it ? : |
|
478
|
0 |
0 |
$it ? : |
|
502
|
1 |
1 |
unless $self->starter_card |
|
511
|
0 |
3 |
unless defined $dealer |
|
512
|
1 |
2 |
unless $self->crib_set |
|
525
|
1 |
1 |
if ($dealer) { } |
|
550
|
0 |
3 |
unless defined $dealer |
|
552
|
1 |
2 |
if ($dealer) { } |
|
564
|
1 |
2 |
unless $self->board |
|
565
|
1 |
1 |
if ($self->board and $self->board->current_play_score) |
|
591
|
0 |
0 |
$_[1] eq 'player2' ? : |
|
622
|
235 |
24 |
if $nl |
|
623
|
10 |
249 |
if $indent |