blib/lib/Language/Logo.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 12 | 149 | 8.0 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
137 | 0 | 0 | 8 | defined $switches{$arg} and @args > 0 |
563 | 0 | 0 | 0 | 0 == $$self{'count'} and $$self{'total'} > 0 |
1091 | 0 | 0 | 0 | $xb > 0 && $xb < $width |
1092 | 0 | 0 | 0 | $yb > 0 && $yb < $height |
1093 | 0 | 0 | 0 | $crossx and not $crossy |
0 | 0 | 0 | $crossy and not $crossx | |
1159 | 0 | 0 | 0 | $xb > 0 && $xb < $width |
1160 | 0 | 0 | 0 | $yb > 0 && $yb < $height |
1161 | 0 | 0 | 0 | $crossx and not $crossy |
0 | 0 | 0 | $crossy and not $crossx |
line | l | !l | condition |
---|---|---|---|
162 | 0 | 0 | $msg or 0 |
167 | 0 | 0 | $sock or 0 |
178 | 0 | 1 | $sock or 0 |
181 | 0 | 1 | $$self{'host'} || ':' |
204 | 0 | 0 | $$self{'name'} || '' |
350 | 0 | 2 | $$self{'verbose'} || 0 |
510 | 0 | 0 | $1 || '' |
556 | 0 | 0 | $ptids or 0 |
630 | 0 | 0 | $val || 0 |
663 | 0 | 0 | $msg ||= '' |
683 | 0 | 0 | $from or 0 |
722 | 0 | 0 | $ptids or 0 |
763 | 0 | 0 | $repid or 0 |
813 | 0 | 0 | $oldcv or 0 |
831 | 0 | 0 | $$self{'clients'} || {} |
927 | 0 | 0 | $color || '' |
953 | 0 | 0 | $size || '' |
981 | 0 | 0 | $newang || '' |
1012 | 0 | 0 | $dist || '' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
184 | 0 | 1 | 0 | $$self{'port'} || $d_port |
236 | 0 | 0 | 0 | $cmd eq 'quit' or $cmd eq 'bye' |
0 | 0 | 0 | $cmd eq 'quit' or $cmd eq 'bye' or $cmd eq 'exit' | |
351 | 0 | 2 | 0 | $$self{'title'} || $d_title |
352 | 2 | 0 | 0 | $$self{'width'} || $d_width |
353 | 2 | 0 | 0 | $$self{'height'} || $d_height |
354 | 0 | 2 | 0 | $$self{'bg'} || $d_bg |
355 | 2 | 0 | 0 | $$self{'update'} || $d_update |
356 | 0 | 2 | 0 | $$self{'host'} || hostname() |
357 | 0 | 2 | 0 | $$self{'port'} || $d_port |
513 | 0 | 0 | 0 | $name ||= "CLIENT$id" |
773 | 0 | 0 | 0 | $wrap < 0 or $wrap > 2 |
787 | 0 | 0 | 0 | $val || $d_width |
788 | 0 | 0 | 0 | $val || $d_height |
789 | 0 | 0 | 0 | $val || $d_bg |
795 | 0 | 0 | 0 | $cmd eq 'w' or $cmd eq 'h' |
814 | 0 | 0 | 0 | $width ||= $oldcv->cget(-'width') |
815 | 0 | 0 | 0 | $height ||= $oldcv->cget(-'height') |
816 | 0 | 0 | 0 | $bg ||= $oldcv->cget(-'bg') |
821 | 0 | 0 | 0 | $width ||= $d_width |
822 | 0 | 0 | 0 | $height ||= $d_height |
823 | 0 | 0 | 0 | $bg ||= $d_bg |
961 | 0 | 0 | 0 | $size ||= $d_psize |
1018 | 0 | 0 | 0 | $dist ||= $$turtle{'dist'} |
1025 | 0 | 0 | 0 | $cmd eq 'setx' or $cmd eq 'sety' |
0 | 0 | 0 | $cmd eq 'setx' or $cmd eq 'sety' or $cmd eq 'setxy' | |
1238 | 0 | 0 | 0 | $x1 < 0 || $x1 > $width || $y1 < 0 || $y1 > $height |