Branch Coverage

blib/lib/Language/Logo.pm

Criterion	Covered	Total	%
branch	13	276	4.7

line	true	false	branch
128	0	2	if ref $class
137	0	8	if ($arg =~ /^sig(.+)$/) { }
	8	0	elsif (defined $switches{$arg} and @args > 0) { }
148	2	0	unless (defined $$self{'host'})
162	0	0	if ($msg or 0)
167	0	0	if ($sock or 0)
178	0	1	if $sock or 0
182	1	0	if $host eq ':'
195	0	60	if $sock = 'IO::Socket::INET'->new(%params)
196	1	59	if (time - $start > $retry_timeout)
207	0	0	unless ($ans =~ /^(\d+):(.+)$/)
231	0	0	unless defined $cmd
234	0	0	if $cmd eq ''
236	0	0	if ($cmd eq 'quit' or $cmd eq 'bye' or $cmd eq 'exit')
241	0	0	if ($cmd eq '?') { }
269	0	0	if (defined $err) { }
275	0	0	if $text
287	0	0	if defined $$preply{'error'}
290	0	0	unless (defined $$preply{$param})
297	0	0	wantarray ? :
304	0	0	unless $sock
311	0	0	if defined $$preply{'error'}
327	0	0	unless $answer
330	0	0	if ($answer =~ s/^!//)
360	0	2	unless defined $fork
361	1	1	if $fork
391	0	1	unless ($sock)
393	0	0	if $verbose
403	0	0	if $verbose
446	0	0	if $update < 1
447	0	0	if $update > 1000
469	0	0	if ($rh == $sock) { }
476	0	0	if (defined $text) { }
480	0	0	if ($text eq '?') { }
	0	0	elsif ($text =~ s/^=//) { }
509	0	0	unless $text =~ /^:(.*)$/
534	0	0	if $verbose
556	0	0	if $ptids or 0
560	0	0	if $verbose
563	0	0	if (0 == $$self{'count'} and $$self{'total'} > 0)
564	0	0	if $verbose
575	0	0	if $text
590	0	0	if $debug
596	0	0	if ($cmdstr eq 'noop')
609	0	0	if ($$pc{'step'})
611	0	0	unless $go
615	0	0	if (defined $$pclient_vars{$cmd})
621	0	0	if defined $method
631	0	0	if $$pc{'debug'}
641	0	0	if $ans =~ /^[cC]/
642	0	0	$ans =~ /^[nN]/ ? :
653	0	0	if $text
683	0	0	if ($from or 0)
722	0	0	if ($ptids or 0)
737	0	0	if ($$turtle{'show'})
748	0	0	if ($$turtle{'pen'})
763	0	0	if $repid or 0
771	0	0	unless defined $wrap
773	0	0	if ($wrap < 0 or $wrap > 2)
786	0	0	if $cmd eq 'clear'
787	0	0	if $cmd eq 'width'
788	0	0	if $cmd eq 'height'
789	0	0	if $cmd eq 'background'
795	0	0	if ($cmd eq 'w' or $cmd eq 'h') { }
	0	0	elsif ($cmd eq 'bg') { }
813	0	0	if ($oldcv or 0)
899	0	0	if $radians < 0
907	0	0	if $degrees < 0
914	0	0	$cmd eq 'st' ? :
924	0	0	unless defined $color
927	0	0	if (($color || '') eq 'random')
940	0	0	$cmd eq 'pendown' ? :
953	0	0	if (($size || '') eq 'random')
956	0	0	unless defined $min
957	0	0	unless defined $max
981	0	0	if (($newang || '') eq 'random')
982	0	0	unless defined $arg0
983	0	0	unless defined $arg1
988	0	0	unless defined $newang
991	0	0	if $cmd eq 'left'
992	0	0	if $cmd eq 'right'
993	0	0	if $cmd eq 'seth'
1012	0	0	if (($dist || '') eq 'random')
1013	0	0	unless defined $arg0
1014	0	0	unless defined $arg1
1019	0	0	if 0 == $dist
1021	0	0	if $cmd eq 'forward'
1022	0	0	if $cmd eq 'backward'
1025	0	0	if ($cmd eq 'setx' or $cmd eq 'sety' or $cmd eq 'setxy') { }
1026	0	0	if ($cmd eq 'setxy') { }
1027	0	0	unless defined $dist
1028	0	0	unless defined $arg0
1031	0	0	unless defined $dist
1033	0	0	$cmd eq 'setx' ? :
1040	0	0	if 2 == $wrap
1041	0	0	if 1 == $wrap
1072	0	0	if (abs $dx < 1e-07) { }
	0	0	elsif (abs $dy < 1e-07) { }
1074	0	0	$y1 < $y0 ? :
1076	0	0	$yb ? :
1080	0	0	$x1 < $x0 ? :
1082	0	0	$xb ? :
1088	0	0	$y1 > $y0 ? :
1089	0	0	$x1 > $x0 ? :
1091	0	0	$xb > 0 && $xb < $width ? :
1092	0	0	$yb > 0 && $yb < $height ? :
1093	0	0	if ($crossx and not $crossy) { }
	0	0	elsif ($crossy and not $crossx) { }
1095	0	0	$y1 > $y0 ? :
1097	0	0	$y1 > $y0 ? :
1100	0	0	$x1 > $x0 ? :
1102	0	0	$x1 > $x0 ? :
1105	0	0	$x1 > $x0 ? :
1106	0	0	$y1 > $y0 ? :
1108	0	0	$x1 > $x0 ? :
1109	0	0	$y1 > $y0 ? :
1137	0	0	if (abs $dx < 1e-07) { }
	0	0	elsif (abs $dy < 1e-07) { }
1139	0	0	$y1 < $y0 ? :
1142	0	0	$y1 < $y0 ? :
1147	0	0	$x1 < $x0 ? :
1150	0	0	$x1 < $x0 ? :
1157	0	0	$y1 > $y0 ? :
1158	0	0	$x1 > $x0 ? :
1159	0	0	$xb > 0 && $xb < $width ? :
1160	0	0	$yb > 0 && $yb < $height ? :
1161	0	0	if ($crossx and not $crossy) { }
	0	0	elsif ($crossy and not $crossx) { }
1163	0	0	$y1 > $y0 ? :
1164	0	0	$y1 > $y0 ? :
1167	0	0	$x1 > $x0 ? :
1168	0	0	$x1 > $x0 ? :
1171	0	0	$x1 > $x0 ? :
1172	0	0	$y1 > $y0 ? :
1173	0	0	$x1 > $x0 ? :
1174	0	0	$y1 > $y0 ? :
1208	0	0	unless $pen
1238	0	0	$x1 < 0 || $x1 > $width || $y1 < 0 || $y1 > $height ? :