Branch Coverage

blib/lib/Game/Xomb.pm

Criterion	Covered	Total	%
branch	68	442	15.3

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	11	if $GGV > $gmax
644	0	5	onein(100) ? :
645	0	5	if (onein(4))
653	0	47	$has_ammie ? :
663	0	5	$has_ammie ? :
665	18	9	if irand(100) > $codds
668	9	0	unless defined $LMap[$gp->[1]][$gp->[0]][3]
674	69	0	unless defined $LMap[$adj->[1]][$adj->[0]][3]
677	9	0	if @free
683	1	4	if ($Level == 1 and not $has_ammie)
689	2	43	$d < $mindist ? :
694	1	0	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	1	17	if (onein(100)) { }
	0	17	elsif (onein(20)) { }
895	0	18	if (onein(1000)) { }
	6	12	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	155	849	if ($cell->[1] == 13 or $cell->[1] == 8 or $cell->[1] == 11 and onein(4))
1323	16	139	onein(7) ? :
1345	634	6478	if $ncol < 0 or $ncol >= 78 or $nrow < 0 or $nrow >= 22
1352	5548	930	if ($species != 12)
1353	3224	2324	if $used->{$loc}++
1358	1958	1296	if (irand(100) < $odds)
1374	6	50	onein(10) ? :
	56	0	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	0	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	10	93	if $ac < 0 or $ac >= 78 or $ar < 0 or $ar >= 22