Condition Coverage

blib/lib/Convert/AcrossLite.pm
Criterion Covered Total %
condition 0 158 0.0


and 3 conditions

line !l l&&!r l&&r condition
133 0 0 0 $k == 0 and substr($diagram[$j], $k, 1) ne '.'
0 0 0 $k == 0 and substr($diagram[$j], $k, 1) ne '.' and substr($diagram[$j], $k + 1, 1) ne '.'
0 0 0 $k + 1 < $$self{'columns'} and $k - 1 >= 0
0 0 0 $k + 1 < $$self{'columns'} and $k - 1 >= 0 and substr($diagram[$j], $k, 1) ne '.'
0 0 0 $k + 1 < $$self{'columns'} and $k - 1 >= 0 and substr($diagram[$j], $k, 1) ne '.' and substr($diagram[$j], $k - 1, 1) eq '.'
0 0 0 $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 0 $j == 0 and substr($diagram[$j], $k, 1) ne '.'
0 0 0 $j == 0 and substr($diagram[$j], $k, 1) ne '.' and substr($diagram[$j + 1], $k, 1) ne '.'
0 0 0 $j - 1 >= 0 and $j + 1 < $$self{'rows'}
0 0 0 $j - 1 >= 0 and $j + 1 < $$self{'rows'} and substr($diagram[$j], $k, 1) ne '.'
0 0 0 $j - 1 >= 0 and $j + 1 < $$self{'rows'} and substr($diagram[$j], $k, 1) ne '.' and substr($diagram[$j - 1], $k, 1) eq '.'
0 0 0 $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 '.'
238 0 0 0 $col == 0 and $sol_two[$row][$col] eq '.'
252 0 0 0 $sol_two[$row][$col] eq '.' and $col != 0
0 0 0 $sol_two[$row][$col] eq '.' and $col != 0 and $last_square eq '.'
363 0 0 0 $k == 0 and substr($diagram[$j], $k, 1) ne '.'
0 0 0 $k == 0 and substr($diagram[$j], $k, 1) ne '.' and substr($diagram[$j], $k + 1, 1) ne '.'
0 0 0 $k + 1 < $$self{'columns'} and $k - 1 >= 0
0 0 0 $k + 1 < $$self{'columns'} and $k - 1 >= 0 and substr($diagram[$j], $k, 1) ne '.'
0 0 0 $k + 1 < $$self{'columns'} and $k - 1 >= 0 and substr($diagram[$j], $k, 1) ne '.' and substr($diagram[$j], $k - 1, 1) eq '.'
0 0 0 $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 0 $j == 0 and substr($diagram[$j], $k, 1) ne '.'
0 0 0 $j == 0 and substr($diagram[$j], $k, 1) ne '.' and substr($diagram[$j + 1], $k, 1) ne '.'
0 0 0 $j - 1 >= 0 and $j + 1 < $$self{'rows'}
0 0 0 $j - 1 >= 0 and $j + 1 < $$self{'rows'} and substr($diagram[$j], $k, 1) ne '.'
0 0 0 $j - 1 >= 0 and $j + 1 < $$self{'rows'} and substr($diagram[$j], $k, 1) ne '.' and substr($diagram[$j - 1], $k, 1) eq '.'
0 0 0 $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 '.'
467 0 0 0 $sol_two[$row][$col] eq '.' and $row == 0
478 0 0 0 $sol_two[$row][$col] eq '.' and $row != 0
0 0 0 $sol_two[$row][$col] eq '.' and $row != 0 and $last_square eq '.'
660 0 0 0 $k == 0 and substr($diagram[$j], $k, 1) ne '.'
0 0 0 $k == 0 and substr($diagram[$j], $k, 1) ne '.' and substr($diagram[$j], $k + 1, 1) ne '.'
0 0 0 $k + 1 < $width and $k - 1 >= 0
0 0 0 $k + 1 < $width and $k - 1 >= 0 and substr($diagram[$j], $k, 1) ne '.'
0 0 0 $k + 1 < $width and $k - 1 >= 0 and substr($diagram[$j], $k, 1) ne '.' and substr($diagram[$j], $k - 1, 1) eq '.'
0 0 0 $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 0 $j == 0 and substr($diagram[$j], $k, 1) eq '-'
0 0 0 $j == 0 and substr($diagram[$j], $k, 1) eq '-' and substr($diagram[$j + 1], $k, 1) eq '-'
0 0 0 $j - 1 >= 0 and $j + 1 < $height
0 0 0 $j - 1 >= 0 and $j + 1 < $height and substr($diagram[$j], $k, 1) eq '-'
0 0 0 $j - 1 >= 0 and $j + 1 < $height and substr($diagram[$j], $k, 1) eq '-' and substr($diagram[$j - 1], $k, 1) eq '.'
0 0 0 $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 '-'

or 2 conditions

line l !l condition
15 0 0 $conf{'in_file'} || 'Default.puz'

or 3 conditions

line l !l&&r !l&&!r condition
133 0 0 0 $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 0 $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 '.'
206 0 0 0 $across_start_squares{$counter} or $down_start_squares{$counter}
234 0 0 0 $sol_two[$row][$col] eq '.' or $col >= $$self{'columns'} - 1
363 0 0 0 $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 0 $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 '.'
436 0 0 0 $across_start_squares{$counter} or $down_start_squares{$counter}
463 0 0 0 $sol_two[$row][$col] eq '.' or $row >= $$self{'rows'} - 1
660 0 0 0 $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 0 $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 '-'