Branch Coverage

blib/lib/NexStarCtl.pm
Criterion Covered Total %
branch 0 238 0.0


line true false branch
183 0 0 if ($^O eq 'MSWin32') { }
188 0 0 unless (defined $port)
215 0 0 if ($count == 0)
222 0 0 if ($char ne '#')
274 0 0 if (defined $response) { }
293 0 0 if ($ra < -0.1 or $ra > 360.1)
296 0 0 if ($de < -90.1 or $de > 90.1)
300 0 0 if (defined $precise and $precise = 1) { }
308 0 0 if (defined $response) { }
330 0 0 if ($az < -0.1 or $az > 360.1)
333 0 0 if ($alt < -90.1 or $alt > 90.1)
337 0 0 if (defined $precise and $precise = 1) { }
345 0 0 if (defined $response) { }
370 0 0 if (defined $precise and $precise = 1) { }
373 0 0 unless (defined $response)
380 0 0 unless (defined $response)
407 0 0 if (defined $precise and $precise = 1) { }
410 0 0 unless (defined $response)
417 0 0 unless (defined $response)
441 0 0 if ($ra < 0 or $ra > 360)
444 0 0 if ($de < -90 or $de > 90)
448 0 0 if (defined $precise and $precise = 1) { }
456 0 0 if (defined $response) { }
477 0 0 if (defined $response) { }
494 0 0 if (defined $response) { }
512 0 0 if (defined $response) { }
530 0 0 if (defined $response) { }
548 0 0 if (defined $response) { }
574 0 0 unless (defined $response)
589 0 0 if (defined $str and $str = 1) { }
592 0 0 if ($lato)
595 0 0 if ($lono)
601 0 0 if ($lato)
604 0 0 if ($lono)
628 0 0 if ($lon < 0)
632 0 0 if ($lat < 0)
637 0 0 if ($lat > 90 or $lon > 180)
655 0 0 if (defined $response) { }
679 0 0 unless (defined $response)
690 0 0 if $tz > 12
693 0 0 if (defined $str and $str = 1) { }
719 0 0 if $tz < 0
721 0 0 if (defined $dst and $dst != 0) { }
743 0 0 unless (defined $response)
750 0 0 if ($model == 5 or $model == 20)
758 0 0 unless (defined $response)
764 0 0 unless (defined $response)
770 0 0 unless (defined $response)
789 0 0 if (defined $response) { }
807 0 0 if ($mode < 0 or $mode > 3)
813 0 0 if (defined $response) { }
835 0 0 if ($axis > 0) { }
841 0 0 if ($direction > 0) { }
847 0 0 if ($rate < 0 or $rate > 9)
853 0 0 if (defined $response) { }
874 0 0 if ($axis > 0) { }
880 0 0 if ($direction > 0) { }
892 0 0 if (defined $response) { }
932 0 0 if ($axis > 0) { }
940 0 0 if (defined $response) { }
961 0 0 if ($axis > 0) { }
969 0 0 if ($rate < 0 or $rate > 99)
976 0 0 if ($rate == 0) { }
0 0 elsif ($rate == 99) { }
986 0 0 if (defined $response) { }
1006 0 0 if ($axis > 0) { }
1012 0 0 if ($direction > 0) { }
1019 0 0 if (defined $response) { }
1039 0 0 if ($axis > 0) { }
1045 0 0 if ($direction > 0) { }
1052 0 0 if ($backlash < 0 or $backlash > 99)
1057 0 0 if (defined $response) { }
1110 0 0 if (defined $response) { }
1111 0 0 if (ord substr($response, 0, 1)) { }
1136 0 0 if (defined $response) { }
1160 0 0 if ($action == 1) { }
0 0 elsif ($action == 0) { }
1169 0 0 if (defined $response) { }
1189 0 0 if (defined $response) { }
1190 0 0 if (ord substr($response, 0, 1)) { }
1213 0 0 if ($action != 1 and $action != 0)
1218 0 0 if (defined $response) { }
1239 0 0 if (defined $response) { }
1258 0 0 if (defined $response) { }
1269 0 0 if (defined $response) { }
1280 0 0 if (defined $response) { }
1304 0 0 unless (defined $len)
1308 0 0 if ($len != @{$data;})
1322 0 0 if ($diff < 0) { }
1327 0 0 if ($rdiff > 127 or $rdiff < -127)
1333 0 0 unless (defined $res)
1341 0 0 unless (defined $res)
1363 0 0 unless (defined $len)
1371 0 0 unless (defined $rdiff)
1377 0 0 if ($rdiff > 0) { }
1401 0 0 if ($num =~ /^[-+]?\d+\.?\d*$/) { }
1464 0 0 if ($x1 == 0) { }
1465 0 0 if ($y1 > 0) { }
1469 0 0 if ($ra1 < 0)
1488 0 0 if ($num - floor($num) < 0.5) { }
1522 0 0 if ($ang >= 0) { }
1544 0 0 if ($ang >= 0) { }
1589 0 0 if (@dms > 3 or $angle eq '')
1593 0 0 unless ($dms[0] =~ /^[+-]?\d+$/)
1596 0 0 if ($dms[1] < 0 or $dms[1] > 59 or $dms[1] =~ /[\D]/)
1599 0 0 if ($dms[2] < 0 or $dms[2] > 59 or $dms[2] =~ /[\D]/)
1603 0 0 if ($dms[0] =~ /^-/) { }
1621 0 0 if (@hms > 3 or $hours eq '')
1625 0 0 if ($hms[0] < 0 or $hms[0] > 23 or $hms[0] =~ /[\D]/)
1628 0 0 if ($hms[1] < 0 or $hms[1] > 59 or $hms[1] =~ /[\D]/)
1631 0 0 if ($hms[2] < 0 or $hms[2] > 59 or $hms[2] =~ /[\D]/)
1658 0 0 if $d2 < -90.0002
1659 0 0 if $d2 > 90.0002
1680 0 0 if $d2 < -90.0002
1681 0 0 if $d2 > 90.0002
1699 0 0 if $d1 < 0
1700 0 0 if $d2 < 0
1723 0 0 if $d1 < 0
1724 0 0 if $d2 < 0