Branch Coverage

blib/lib/Game/Xomb.pm
Criterion Covered Total %
branch 71 442 16.0


line true false branch
360 0 0 if defined $LMap[$row][$col][2] or defined $LMap[$drow][$dcol][3] or $LMap[$row][$col][1][1] == 10
365 0 0 unless $dftype == 9 or $dftype == 10
373 0 0 if ($ani->[4][0] <= 0) { }
374 0 0 if ($ani->[1] == 0) { }
377 0 0 unless $Warned_About{'shieldfail'}++
382 0 0 if ($ani->[1] == 1 and $ani->[5][1] != 10 and onein(20))
396 0 0 if ($ani->[1] == 0)
413 0 0 unless -t *STDOUT
415 0 0 unless not defined $cols or $cols < 80
421 0 0 if @_
427 1 6 if ($value < $min) { }
1 5 elsif ($value > $max) { }
439 0 0 defined $obj && @$obj ? :
446 0 0 if $hp < 0
449 0 0 if $hp & 1
451 0 0 if $len < 50
457 0 0 if (defined $Animates[0][4][4])
458 0 0 if ($Animates[0][4][4][4][0] eq 'Dragonstone') { }
470 1 2 if ($dist > $weap->[1])
481 2 2 if $i < 2
484 2 4 if $i == $j
490 0 0 if bad_terminal()
496 0 0 if bad_terminal()
513 0 0 if $ani->[6] <= 0
524 0 0 if $status == 1 or $status == -1
527 0 0 if ($new_level != 0)
530 0 0 if $Level <= 0
538 0 0 if $ammie
567 8575 5 unless ($r == $row and $c == $col)
569 400 8175 if (irand($total) < $left)
584 16 4 if $want > 0
598 0 20 unless @seeds
610 0 9 unless @seeds
614 2 3 if (exists $Level_Features[$findex]{'6'} and not $has_ammie)
637 5 13 if $GGV > $gmax
644 0 5 onein(100) ? :
645 2 3 if (onein(4))
653 0 49 $has_ammie ? :
663 0 5 $has_ammie ? :
665 23 6 if irand(100) > $codds
668 6 0 unless defined $LMap[$gp->[1]][$gp->[0]][3]
674 47 1 unless defined $LMap[$adj->[1]][$adj->[0]][3]
677 6 0 if @free
683 1 4 if ($Level == 1 and not $has_ammie)
689 5 40 $d < $mindist ? :
694 0 1 onein(10) ? :
706 0 0 if exists $expect->{$key}
708 0 0 if defined $Save_FH
714 1 0 if $item->[1] == 6
719 1 1 if defined $Animates[0][4][4] and $Animates[0][4][4][4][0] eq 'Dragonstone'
827 0 0 if $lc == 2
0 0 $lc == 0 ? :
862 3 1 if defined $Animates[0][4][4]
880 0 20 if (onein(100)) { }
0 20 elsif (onein(20)) { }
895 0 20 if (onein(1000)) { }
6 14 elsif (onein(3)) { }
953 0 0 if (@$loot) { }
970 0 0 if ($message) { }
974 0 0 if $has_loot
981 0 0 if $key eq "\e" or $key eq 'q'
983 0 0 unless $has_loot
984 0 0 if ($key eq 'd') { }
0 0 elsif ($key eq 'E') { }
985 0 0 unless (defined $message)
989 0 0 if (defined $Animates[0][5][2])
996 0 0 if $drop eq "\e" or $drop eq 'q'
998 0 0 if ($i < @$loot)
1005 0 0 unless (defined $message)
1012 0 0 if $use eq "\e" or $use eq 'q'
1014 0 0 if ($i < @$loot)
1015 0 0 if use_item($loot, $i, $Animates[0][4])
1034 0 0 if ($dcol < 0 or $dcol >= 78 or $drow < 0 or $drow >= 22)
1041 0 0 if (defined $Sticky)
1042 0 0 if (@Visible_Monst or abort_run(@$lmc->[0][0, 1], $dcol, $drow))
1049 0 0 if (defined $target)
1050 0 0 if (irand(100) < 90) { }
1055 0 0 if $lmc->[1][1] == 12
1060 0 0 if $target->[1] == 13
1065 0 0 if $target->[1] == 12
1066 0 0 if ($target->[1] == 8) { }
1067 0 0 if nope_regarding('Falling may cause damage', undef, 'You decide against it.')
1088 0 0 if defined $Animates[0][5][2]
1090 0 0 unless @{$Animates[0][4][3]}
1097 0 0 unless @{$Animates[0][4][3]}
1113 0 0 if (exists $Visible_Cell{$loc}) { }
1116 0 0 if defined $x
1120 0 0 if (defined $g)
1121 0 0 if ($g->[1] == 8) { }
1154 0 0 if $key eq "\e" or $key eq 'q'
1156 0 0 if ($key eq "\t") { }
1161 0 0 if (ord $key < 97)
1174 0 0 onein(5000) ? :
1178 0 0 if $Animates[0][5][1][1] != 10
1180 0 0 if ($Level > @Level_Features)
1190 0 0 if $Animates[0][5][1][1] != 10
1192 0 0 unless (has_amulet())
1202 0 0 if (defined $Sticky and @Visible_Monst || $Animates[0][5][1][1] == 11)
1214 0 0 unless defined $lmc->[2]
1216 0 0 if @$loot >= 22
1218 0 0 if $lmc->[1][1] == 12
1220 0 0 if ($lmc->[2][1] == 6) { }
1254 0 0 unless defined $Animates[0][4][4]
1262 0 0 if nope_regarding('Really quit game?', undef, 'You decide against it.')
1268 0 0 unless defined $Animates[0][4][4]
1271 0 0 if @$loot >= 22
1283 0 0 if ($key eq 'Y') { }
1284 0 0 if defined $yes
1287 0 0 if defined $no
1298 0 0 unless $Warned_About{'acidburn'}++
1306 0 0 if ($isnewcell)
1308 0 0 if $oneshot
1320 110 550 if ($cell->[1] == 13 or $cell->[1] == 8 or $cell->[1] == 11 and onein(4))
1323 17 93 onein(7) ? :
1345 485 5480 if $ncol < 0 or $ncol >= 78 or $nrow < 0 or $nrow >= 22
1352 4464 1016 if ($species != 12)
1353 2197 2267 if $used->{$loc}++
1358 1944 1339 if (irand(100) < $odds)
1374 8 46 onein(10) ? :
54 1 unless $LMap[$row][$col][1][1] == 10
1388 0 0 if $depth >= $max or not @$spread
1395 0 0 if (defined $lmc->[3]) { }
0 0 elsif ($lmc->[1][1] == 13) { }
1396 0 0 if coinflip()
1398 0 0 if onein(40)
1401 0 0 if (exists $Visible_Cell{$loc})
1403 0 0 onein(1000) ? :
1411 0 0 if $seen->{$adj} or not exists $Visible_Cell{$loc}
1422 0 0 if (not $refresh and defined $FOV)
1450 0 0 if $iters - 4 > irand(7)
1453 0 0 if exists $blocked{$loc}
1457 0 0 if not $seen{$loc}++ and defined $LMap[$row][$col][3]
1464 0 0 if ($cell->[1] == 13) { }
0 0 elsif ($cell->[1] == 12) { }
0 0 elsif ($cell->[1] == 11) { }
1470 0 0 if onein(20)
1472 0 0 if onein(100)
1475 0 0 if exists $Visible_Cell{$loc}
1478 0 0 if (defined $LMap[$row][$col][$i])
1511 0 0 if (exists $Visible_Cell{join ',', @$lmc->[0][0, 1]})
1533 2 0 if defined $update
1561 0 0 if (defined $esc and $esc eq "\e")
1566 0 0 if (defined $key) { }
1567 0 0 if exists $expect->{$key}
1573 0 0 if defined $Save_FH
1596 0 0 if (coinflip()) { }
1597 0 0 if ($ani->[1] == 0)
1624 0 0 $won ? :
1633 0 0 if ($count == 4) { }
0 0 elsif ($count >= 2) { }
0 0 elsif ($count == 1) { }
1637 0 0 if $key eq "\e" or $key eq 'q'
1652 0 0 if $hits == -1
1661 0 0 if (defined $lmc->[3]) { }
0 0 elsif ($lmc->[1][1] == 13) { }
1663 0 0 if $lmc->[3][1] == 0
1665 0 0 if onein(20)
1669 0 0 $iters > $weap->[1] ? :
1676 0 0 unless $hits
1681 0 0 if coinflip()
1688 0 0 if exists $Visible_Cell{$loc}
1695 0 0 if (exists $Visible_Cell{$loc})
1696 0 0 coinflip() ? :
1706 0 0 if $seen{$loc}++ or not exists $Visible_Cell{$loc} or irand(10) < 8
1708 0 0 if exists $Visible_Cell{$loc}
1712 0 0 if (@spread)
1714 0 0 if onein(40)
1715 0 0 if onein(250)
1730 0 0 if $hits == -1
1733 0 0 if ($hits == 0)
1734 0 0 if onein(8)
1745 0 0 if (defined $LMap[$row][$col][3] and $LMap[$row][$col][3][1] != 0)
1747 0 0 if $hits == 0 and coinflip()
1751 0 0 if ($cell->[1] == 13) { }
0 0 elsif ($cell->[1] == 12) { }
1758 0 0 if (onein(10))
1770 0 0 unless @path
1774 0 0 if (exists $Visible_Cell{$loc})
1781 0 0 if ($hits == 0) { }
1783 0 0 if defined $buddy
1799 0 0 if $hits == -1
1802 0 0 if ($hits == 0)
1804 0 0 if onein(10)
1815 0 0 if ($cell->[1] == 13)
1826 0 0 if $hits < 1
1828 0 0 if (@nearby) { }
1833 0 0 if (defined $buddy) { }
0 0 elsif ($lmc->[1] == 13 and onein(20)) { }
1854 0 0 if ($Violent_Sleep_Of_Reason == 1)
1865 0 0 defined $Sticky ? :
1867 0 0 if defined $code
1868 0 0 if $ret != 0
1871 0 0 if (defined $Sticky)
1872 0 0 if --$Sticky_Max <= 0
1873 0 0 unless $Sticky eq '.'
1877 0 0 if (defined $self->[4][4] and $hp < 100)
1888 0 0 if $hp == 100
1890 0 0 if ($self->[4][4][4][1] <= 0)
1913 0 0 if $hits == -1
1921 0 0 if ($iters > $weap->[1])
1922 0 0 if $hits == 0
1925 0 0 if (defined $LMap[$row][$col][3] and $LMap[$row][$col][3][1] != 0)
1927 0 0 if $hits == 0
1931 0 0 if ($cell->[1] == 13) { }
0 0 elsif ($cell->[1] == 12) { }
1933 0 0 if (onein(4)) { }
1945 0 0 if (onein(20))
1959 0 0 unless @path
1963 0 0 if (exists $Visible_Cell{$loc})
1970 0 0 if ($property_damage) { }
1973 0 0 if ($hits == 0) { }
1975 0 0 if defined $buddy
1994 0 0 if $hits < 1
2000 0 0 if ($col == $tcol and $row == $trow)
2007 0 0 if (defined $LMap[$row][$col][3] or $cell->[1] == 13 or $cell->[1] == 12 or $cell->[1] == 11 and onein(3))
2021 0 0 if $hits < 1 or not @path
2026 0 0 if exists $Visible_Cell{$loc}
2037 0 2 unless ($loot->[$i][1] == 7 or $loot->[$i][1] == 6)
2041 1 1 if (defined $stash->[4]) { }
2052 1 0 if ($veg->[1] == 7 or $veg->[1] == 6) { }
2067 7 72 if $ac < 0 or $ac >= 78 or $ar < 0 or $ar >= 22