| line |
true |
false |
branch |
|
45
|
0 |
5 |
unless (exists {'golf', 1, 'all_in_a_row', 1, 'black_hole', 1}->{$variant}) |
|
61
|
4 |
0 |
if (my($card_s) = $foundation_str =~ /\AFoundations: (\S{2})\z/) { } |
|
73
|
3 |
2 |
if ($self->_variant eq 'golf') { } |
|
75
|
0 |
3 |
unless ($foundation_str =~ s/\ATalon: ((?:\S{2} ){15}\S{2})/$1/) |
|
94
|
1 |
1 |
if ($self->_variant eq 'all_in_a_row') { } |
|
96
|
0 |
1 |
if ($foundation_str ne 'Foundations: -') |
|
118
|
1 |
4 |
if ($self->_wrap_ranks) |
|
149
|
0 |
952 |
if ($s ne '') |
|
159
|
0 |
5 |
if ($l ne 'Solved!') |
|
173
|
39 |
199 |
if ($IS_GOLF and $move_line =~ /\ADeal talon\z/) { } |
|
|
0 |
199 |
elsif (not $move_line =~ /\AMove a card from stack ([0-9]+) to the foundations\z/) { } |
|
176
|
0 |
39 |
unless (@{$self->_talon;}) |
|
191
|
199 |
39 |
unless (defined $card) |
|
193
|
0 |
199 |
if ($col_idx < 0 or $col_idx >= $NUM_COLUMNS) |
|
203
|
0 |
238 |
unless ($info_line =~ /\AInfo: Card moved is ([A23456789TJQK][HCDS])\z/) |
|
216
|
0 |
238 |
unless ($sep_line =~ /\A=+\z/) |
|
224
|
39 |
199 |
if (defined $card) { } |
|
227
|
0 |
39 |
if ($top_card_moved_str ne $moved_card_str) |
|
239
|
0 |
199 |
if ($top_card_moved_str ne $moved_card_str) |
|
246
|
198 |
1 |
if (defined $found_card) |
|
252
|
1 |
60 |
if (not $delta == 1 || $delta == $MAX_RANK - 1 or $IS_GOLF and not $self->_wrap_ranks and ($self->_place_queens_on_kings ? $found_rank == $MAX_RANK : 0) || $delta != 1) |
|
278
|
185 |
52 |
if ($CHECK_EMPTY) |
|
280
|
3 |
182 |
if ($remaining_cards == 0) |