Branch Coverage

blib/lib/Games/RolePlay/MapGen/MapQueue.pm

Criterion	Covered	Total	%
branch	0	306	0.0

line	true	false	branch
59	0	0	unless ref $the_m
78	0	0	unless $$this{'c'}[$$rhs[1]][$$rhs[0]]
98	0	0	if @$loc != 2
99	0	0	if $$loc[0] < 0
100	0	0	if $$loc[1] < 0
101	0	0	if $$loc[0] > $$this{'xm'}
102	0	0	if $$loc[1] > $$this{'ym'}
105	0	0	unless $type
120	0	0	$$lhs[0] < $$rhs[0] ? :
121	0	0	$$lhs[1] < $$rhs[1] ? :
130	0	0	if ref $_
133	0	0	$x_dir eq 'e' ? :
	0	0	unless ($x_od or $x == ($x_dir eq 'e' ? $X[$#X] : $X[0]))
134	0	0	if ($x_dir eq 'e') { }
138	0	0	$y_dir eq 's' ? :
	0	0	unless ($y_od or $y == ($y_dir eq 's' ? $Y[$#Y] : $Y[0]))
139	0	0	if ($y_dir eq 's') { }
159	0	0	unless $EXTRUDE_POINTS >= 2 and not $EXTRUDE_POINTS =~ /\./u and not $EXTRUDE_POINTS & 1
162	0	0	$use_lhs ? :
	0	0	$use_ocr ? :
163	0	0	$use_lhs ? :
	0	0	$use_ocr ? :
212	0	0	if "@$lhs" eq "@$rhs"
232	0	0	if ($this->_line_segments_intersect(map({@$_;} @$od_segment), (@$l, @$r)))
239	0	0	if ($this_line)
247	0	0	unless $line
271	0	0	if "@$lhs" eq "@$rhs"
293	0	0	if ($this->_line_segments_intersect(map({@$_;} @$od_segment), (@$l, @$r)))
300	0	0	if ($this_line)
308	0	0	unless $line
317	0	0	if "@$lhs" eq "@$rhs"
332	0	0	if ($this->_line_segments_intersect(map({@$_;} @$od_segment), (@$l, @$r)))
346	0	0	unless ($cover)
349	0	0	unless $this->_tight_line_of_sight($lhs, $rhs)
357	0	0	unless $this->_tight_line_of_sight($lhs, $rhs)
394	0	0	if abs $$lhs[0] - $$rhs[0] > 1
395	0	0	if abs $$lhs[1] - $$rhs[1] > 1
409	0	0	if ($this->_line_segments_intersect(map({@$_;} @$od_segment), (@$l, @$r)))
455	0	0	$$lhs[1] >= $$rhsd[1] ? :
	0	0	if ($$rhsd[2] eq 'n') { }
	0	0	elsif ($$rhsd[2] eq 's') { }
	0	0	elsif ($$rhsd[2] eq 'e') { }
	0	0	elsif ($$rhsd[2] eq 'w') { }
456	0	0	$$lhs[1] <= $$rhsd[1] ? :
457	0	0	$$lhs[0] <= $$rhsd[0] ? :
458	0	0	$$lhs[0] >= $$rhsd[0] ? :
461	0	0	if ($$rhsd[2] eq 'n') { }
	0	0	elsif ($$rhsd[2] eq 's') { }
	0	0	elsif ($$rhsd[2] eq 'e') { }
	0	0	elsif ($$rhsd[2] eq 'w') { }
471	0	0	if $$rhsd[2] eq 'e'
472	0	0	if $$rhsd[2] eq 's'
482	0	0	if (my(@i) = $this->_line_segments_intersect(map({@$_;} @$od_segment), (@$l, @$r)))
495	0	0	if ($od and not $rf or $rf and $$od{'open'}) { }
524	0	0	@lhs ? :
609	0	0	if "@$lhs" eq "@$rhs"
624	0	0	if ($this->_line_segments_intersect(map({@$_;} @$od_segment), (@$l, @$r)))
631	0	0	if ($this_line)
633	0	0	$d != 0 ? :
634	0	0	defined $m ? :
724	0	0	unless $$this{'c'}[$$loc[1]][$$loc[0]]
873	0	0	unless ref $door
880	0	0	if ($door == $$tile{'od'}{$d})
913	0	0	if ($cx == $dx and $cy == $dy)
916	0	0	if ($ay == $by and $cy == $ay) { }
	0	0	elsif ($ax == $bx and $cx == $ax) { }
917	0	0	if $ax <= $cx and $cx <= $bx
920	0	0	if $ay <= $cy and $cy <= $by
926	0	0	if ($d == 0)
930	0	0	if $$l[0] == $$r[0] and $$l[1] == $$r[1]
935	0	0	if (abs $ax - $bx < 0.0001 and abs $bx - $cx < 0.0001 and abs $cx - $dx < 0.0001) { }
	0	0	elsif (abs $ay - $by < 0.0001 and abs $by - $cy < 0.0001 and abs $cy - $dy < 0.0001) { }
936	0	0	if $ay <= $cy and $cy <= $by
937	0	0	if $ay <= $dy and $dy <= $by
941	0	0	if $ax <= $cx and $cx <= $bx
942	0	0	if $ax <= $dx and $dx <= $bx
957	0	0	if abs $p < 1e-05
958	0	0	if abs $p - 1 < 1e-05
965	0	0	unless $p >= 0 and $p <= 1
985	0	0	unless exists $$this{'l'}{$that}
988	0	0	wantarray ? :
995	0	0	unless @_ == 4
1000	0	0	unless $this->_check_loc(\@lhs)
1001	0	0	unless $this->_check_loc(\@rhs)
1010	0	0	unless @_ == 4
1015	0	0	unless $this->_check_loc(\@lhs)
1016	0	0	unless $this->_check_loc(\@rhs)
1018	0	0	if ($_[4])
1020	0	0	wantarray ? :
1023	0	0	unless $this->_line_of_sight(\@lhs, \@rhs)
1030	0	0	unless exists $$this{'l'}{$lhs}
1031	0	0	unless exists $$this{'l'}{$rhs}
1037	0	0	if ($los)
1039	0	0	wantarray ? :
1042	0	0	unless $this->_line_of_sight($lhs, $rhs)
1050	0	0	unless @_ == 2
1055	0	0	unless $lhs = $$this{'l'}{$lhs}
1056	0	0	unless $rhs = $$this{'l'}{$rhs}
1065	0	0	unless @_ == 2
1070	0	0	unless $lhs = $$this{'l'}{$lhs}
1071	0	0	unless $rhs = $this->_door($rhs)
1082	0	0	unless @_ == 5
1088	0	0	unless $this->_check_loc(\@lhs)
1089	0	0	unless $this->_check_loc(\@rhs)
1090	0	0	unless $dir =~ /^[nsew]\z/u
1104	0	0	@_ == 1 && ref $_[0] eq 'HASH' ? :
1123	0	0	unless my $that = shift()
1126	0	0	if exists $$this{'l'}{$tag}
1127	0	0	unless $this->_check_loc(\@loc)
1138	0	0	unless exists $$this{'l'}{$tag}
1152	0	0	unless $this->_check_loc(\@loc)
1154	0	0	if exists $$this{'l'}{$tag}
1163	0	0	exists $$this{'l'}{$that} ? :
1171	0	0	unless my $loc = $this->_check_loc(\@_)
1180	0	0	unless my $loc = $this->_check_loc(\@_)
1184	0	0	unless $$this{'c'}[$$l[1]][$$l[0]]
1199	0	0	unless $$this{'c'}[$row][$col]
1216	0	0	unless $$this{'c'}[$$loc[1]][$$loc[0]]
1218	0	0	if @junk
1233	0	0	unless @l
1234	0	0	wantarray ? :
1245	0	0	if defined $$this{'_the_map'}[$y][$x]{'type'}
1248	0	0	wantarray ? :
1254	0	0	unless $this->_check_loc(\@init)
1262	0	0	unless $this->_check_loc(\@init)
1265	0	0	unless $range > 0
1272	0	0	unless @_ == 4
1273	0	0	unless $this->_check_loc(\@lhs)
1274	0	0	unless $this->_check_loc(\@rhs)
1276	0	0	unless $this->_line_of_sight(\@lhs, \@rhs)
1286	0	0	unless $this->_check_loc(\@l)
1287	0	0	unless $this->_check_loc(\@r)
1295	0	0	unless $this->_check_loc(\@l)
1296	0	0	unless $this->_check_loc(\@r)
1304	0	0	unless $this->_check_loc(\@l)
1305	0	0	unless $this->_check_loc(\@r)
1323	0	0	if $dir =~ /^([nsew])./iu
1326	0	0	unless $this->_check_loc(\@loc)
1327	0	0	unless ref($door = $$this{'_the_map'}[$loc[1]][$loc[0]]{'od'}{$dir})
1336	0	0	if $dir =~ /^([nsew])./iu
1338	0	0	unless $this->_check_loc(\@loc)
1339	0	0	if ref $$this{'_the_map'}[$loc[1]][$loc[0]]{'od'}{$dir}
1347	0	0	if $dir =~ /^([nsew])./iu
1350	0	0	unless $this->_check_loc(\@loc)
1351	0	0	unless ref($door = $$this{'_the_map'}[$loc[1]][$loc[0]]{'od'}{$dir})
1352	0	0	if $$door{'open'}
1362	0	0	if $dir =~ /^([nsew])./iu
1365	0	0	unless $this->_check_loc(\@loc)
1366	0	0	unless ref($door = $$this{'_the_map'}[$loc[1]][$loc[0]]{'od'}{$dir})
1367	0	0	unless $$door{'open'}
1377	0	0	if wantarray
1385	0	0	if wantarray
1394	0	0	if $going