Branch Coverage

blib/lib/Game/Cribbage.pm
Criterion Covered Total %
branch 0 110 0.0


line true false branch
53 0 0 if $switch
56 0 0 if ($self->board->score->player1->{'current'} > 120) { }
0 0 elsif ($self->board->score->player2->{'current'} > 120) { }
61 0 0 if $winner
76 0 0 unless ($@)
77 0 0 if ($self->board->score->player1->{'current'} > 120) { }
0 0 elsif ($self->board->score->player2->{'current'} > 120) { }
87 0 0 unless (grep {not $_->{'used'};} @{$hands->player2->cards;}, @{$hands->player1->cards;})
91 0 0 if ($@)
99 0 0 if ($self->board->no_player_can_play)
101 0 0 if ($@)
128 0 0 $self->dealer ? :
129 0 0 $self->dealer ? :
157 0 0 if ($self->board->next_to_play->player eq "player1")
159 0 0 if ($card->go) { }
164 0 0 if ($self->board->current_play_score == 31)
169 0 0 if ($self->board->score->player1->{'current'} > 120)
175 0 0 if ($self->board->player_cannot_play("player2"))
176 0 0 unless ($self->board->player_cannot_play("player1"))
196 0 0 if ($number =~ /go/i)
198 0 0 if (scalar @can and ref $can[0])
205 0 0 if ($number eq "b")
207 0 0 if ($card->go) { }
212 0 0 if ($self->board->current_play_score == 31)
219 0 0 if (not $number =~ /^\d+$/ or $number > scalar @{$hands->player2->cards;})
226 0 0 if ($self->board->current_play_score == 31)
244 0 0 if (not $number =~ /^\d+$/ or $number > 52)
262 0 0 $low->value < $bot->value ? :
264 0 0 $dealer ? :
270 0 0 $dealer ? :
306 0 0 if $_ =~ /^\d+$/
308 0 0 unless (scalar @cards == 2)
328 0 0 if ($self->dealer)
345 0 0 if (not $number =~ /^\d+$/ or $number > 52)
362 0 0 $card->suit =~ /H|D/ ? :
376 0 0 $card->symbol =~ /10/ ? :
0 0 $card->symbol =~ /10/ ? :
393 0 0 unless $num
417 0 0 if (not $all and $_->{'used'})
434 0 0 unless scalar @{$cards;}
457 0 0 $it ? :
458 0 0 !$it && $_ < 10 ? :
461 0 0 $it ? :
469 0 0 $it ? :
493 0 0 unless $self->starter_card
502 0 0 unless defined $dealer
503 0 0 unless $self->crib_set
516 0 0 if ($dealer) { }
541 0 0 unless defined $dealer
543 0 0 if ($dealer) { }
555 0 0 unless $self->board
556 0 0 if ($self->board and $self->board->current_play_score)
582 0 0 $_[1] eq 'player2' ? :
613 0 0 if $nl
614 0 0 if $indent