| line |
true |
false |
branch |
|
24
|
0 |
0 |
if (@_) |
|
30
|
0 |
0 |
if (@_) |
|
39
|
0 |
0 |
unless $$self{'is_parsed'} |
|
77
|
0 |
0 |
if (defined $self->out_file) { } |
|
80
|
0 |
0 |
unless open FH, ">$PUZ_OUT" |
|
98
|
0 |
0 |
unless $$self{'is_parsed'} |
|
133
|
0 |
0 |
if ($k == 0 and substr($diagram[$j], $k, 1) ne '.' and substr($diagram[$j], $k + 1, 1) ne '.' or $k + 1 < $$self{'columns'} and $k - 1 >= 0 and substr($diagram[$j], $k, 1) ne '.' and substr($diagram[$j], $k - 1, 1) eq '.' and substr($diagram[$j], $k + 1, 1) ne '.') { } |
|
157
|
0 |
0 |
if ($j == 0 and substr($diagram[$j], $k, 1) ne '.' and substr($diagram[$j + 1], $k, 1) ne '.' or $j - 1 >= 0 and $j + 1 < $$self{'rows'} and substr($diagram[$j], $k, 1) ne '.' and substr($diagram[$j - 1], $k, 1) eq '.' and substr($diagram[$j + 1], $k, 1) ne '.') { } |
|
168
|
0 |
0 |
if ($j >= $$self{'rows'} - 1) { } |
|
176
|
0 |
0 |
if ($j >= $$self{'rows'} - 1) { } |
|
206
|
0 |
0 |
if ($across_start_squares{$counter} or $down_start_squares{$counter}) |
|
234
|
0 |
0 |
if ($sol_two[$row][$col] eq '.' or $col >= $$self{'columns'} - 1) { } |
|
238
|
0 |
0 |
if ($col == 0 and $sol_two[$row][$col] eq '.') |
|
252
|
0 |
0 |
if ($sol_two[$row][$col] eq '.' and $col != 0 and $last_square eq '.') |
|
253
|
0 |
0 |
if ($col == $$self{'columns'} - 1) { } |
|
266
|
0 |
0 |
if ($col == $$self{'columns'} - 1) |
|
267
|
0 |
0 |
unless ($sol_two[$row][$col] eq '.') |
|
276
|
0 |
0 |
if ($length < 2) |
|
280
|
0 |
0 |
if ($col >= $$self{'columns'} - 1) { } |
|
291
|
0 |
0 |
unless defined $clue_num |
|
304
|
0 |
0 |
if ($col >= $$self{'columns'} - 1) { } |
|
328
|
0 |
0 |
unless $$self{'is_parsed'} |
|
363
|
0 |
0 |
if ($k == 0 and substr($diagram[$j], $k, 1) ne '.' and substr($diagram[$j], $k + 1, 1) ne '.' or $k + 1 < $$self{'columns'} and $k - 1 >= 0 and substr($diagram[$j], $k, 1) ne '.' and substr($diagram[$j], $k - 1, 1) eq '.' and substr($diagram[$j], $k + 1, 1) ne '.') { } |
|
387
|
0 |
0 |
if ($j == 0 and substr($diagram[$j], $k, 1) ne '.' and substr($diagram[$j + 1], $k, 1) ne '.' or $j - 1 >= 0 and $j + 1 < $$self{'rows'} and substr($diagram[$j], $k, 1) ne '.' and substr($diagram[$j - 1], $k, 1) eq '.' and substr($diagram[$j + 1], $k, 1) ne '.') { } |
|
398
|
0 |
0 |
if ($j >= $$self{'rows'} - 1) { } |
|
406
|
0 |
0 |
if ($j >= $$self{'rows'} - 1) { } |
|
436
|
0 |
0 |
if ($across_start_squares{$counter} or $down_start_squares{$counter}) |
|
463
|
0 |
0 |
if ($sol_two[$row][$col] eq '.' or $row >= $$self{'rows'} - 1) { } |
|
467
|
0 |
0 |
if ($sol_two[$row][$col] eq '.' and $row == 0) |
|
478
|
0 |
0 |
if ($sol_two[$row][$col] eq '.' and $row != 0 and $last_square eq '.') |
|
479
|
0 |
0 |
if ($row == $$self{'rows'} - 1) { } |
|
492
|
0 |
0 |
if ($row == $$self{'rows'} - 1) |
|
494
|
0 |
0 |
unless ($sol_two[$row][$col] eq '.') |
|
503
|
0 |
0 |
if ($length < 2) |
|
507
|
0 |
0 |
if ($row >= $$self{'rows'} - 1) { } |
|
518
|
0 |
0 |
unless defined $clue_num |
|
531
|
0 |
0 |
if ($row >= $$self{'rows'} - 1) { } |
|
564
|
0 |
0 |
unless open FH, $PUZ_IN |
|
604
|
0 |
0 |
unless read FH, $buf, 1 |
|
606
|
0 |
0 |
if $char == 0 |
|
609
|
0 |
0 |
if (defined $parse_word) { } |
|
621
|
0 |
0 |
unless read FH, $buf, 1 |
|
623
|
0 |
0 |
if $char == 0 |
|
626
|
0 |
0 |
if (defined $parse_word) { } |
|
638
|
0 |
0 |
unless read FH, $buf, 1 |
|
640
|
0 |
0 |
if $char == 0 |
|
643
|
0 |
0 |
if (defined $parse_word) { } |
|
660
|
0 |
0 |
if ($k == 0 and substr($diagram[$j], $k, 1) ne '.' and substr($diagram[$j], $k + 1, 1) ne '.' or $k + 1 < $width and $k - 1 >= 0 and substr($diagram[$j], $k, 1) ne '.' and substr($diagram[$j], $k - 1, 1) eq '.' and substr($diagram[$j], $k + 1, 1) ne '.') |
|
676
|
0 |
0 |
if ($j == 0 and substr($diagram[$j], $k, 1) eq '-' and substr($diagram[$j + 1], $k, 1) eq '-' or $j - 1 >= 0 and $j + 1 < $height and substr($diagram[$j], $k, 1) eq '-' and substr($diagram[$j - 1], $k, 1) eq '.' and substr($diagram[$j + 1], $k, 1) eq '-') |
|
687
|
0 |
0 |
if ($anum == 0) |
|
695
|
0 |
0 |
if ($anum != 0) |
|
700
|
0 |
0 |
unless read FH, $buf, 1 |
|
702
|
0 |
0 |
if $char == 0 |
|
717
|
0 |
0 |
if ($dnum != 0) |
|
722
|
0 |
0 |
unless read FH, $buf, 1 |
|
724
|
0 |
0 |
if $char == 0 |
|
754
|
0 |
0 |
unless $$self{'is_parsed'} |
|
760
|
0 |
0 |
unless $$self{'is_parsed'} |
|
766
|
0 |
0 |
unless $$self{'is_parsed'} |
|
774
|
0 |
0 |
unless $$self{'is_parsed'} |
|
782
|
0 |
0 |
unless $$self{'is_parsed'} |
|
788
|
0 |
0 |
unless $$self{'is_parsed'} |
|
794
|
0 |
0 |
unless $$self{'is_parsed'} |
|
800
|
0 |
0 |
unless $$self{'is_parsed'} |
|
806
|
0 |
0 |
unless $$self{'is_parsed'} |