Branch Coverage

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


line true false branch
247 0 0 if (($proto_version & 16711680) >> 16 < $release) { }
259 0 0 if (($proto_version & 65280) >> 8 < $revision) { }
271 0 0 if (($proto_version & 255) < $patch) { }
283 0 0 if ($proto_version < $version) { }
295 0 0 if ($mount_vendor == $vendor) { }
307 0 0 if ($mount_vendor == $vendor) { }
333 0 0 if ($portname =~ m[^tcp://]) { }
340 0 0 if ($is_tcp)
341 0 0 unless my $port = 'IO::Socket::INET'->new('PeerHost', $portname, 'Proto', 'tcp')
348 0 0 if ($^O eq 'MSWin32') { }
353 0 0 unless (defined $port)
365 0 0 unless (defined $mount_vendor)
380 0 0 if ($is_tcp == 0) { }
389 0 0 if ($@ and not $@ =~ /TimeOut/)
412 0 0 if ($count == 0)
415 0 0 if ($vl and $char eq '#')
422 0 0 if ($char ne '#')
471 0 0 if (defined $ver and $ver != 0)
476 0 0 unless (defined $major)
490 0 0 if &version_before(66048)
495 0 0 unless defined $response
497 0 0 if (length $response == 3) { }
0 0 elsif (length $response == 7) { }
518 0 0 unless (3 & $vendor)
544 0 0 if &version_before(66048)
548 0 0 if (defined $response) { }
564 0 0 if &vendor_not(2)
565 0 0 if &release_before(3)
566 0 0 if &revision_before(37)
570 0 0 if (defined $response) { }
589 0 0 if ($ra < 0 or $ra > 360)
592 0 0 if ($de < -90 or $de > 90)
596 0 0 if (defined $precise and $precise = 1) { }
597 0 0 if &version_before(67072)
601 0 0 if &version_before(66048)
606 0 0 if (defined $response) { }
628 0 0 if ($az < 0 or $az > 360)
631 0 0 if ($alt < -90 or $alt > 90)
635 0 0 if (defined $precise and $precise = 1) { }
636 0 0 if &version_before(131584)
640 0 0 if &version_before(66048)
645 0 0 if (defined $response) { }
670 0 0 if (defined $precise and $precise = 1) { }
671 0 0 if &version_before(67072)
674 0 0 unless (defined $response)
679 0 0 if &version_before(66048)
682 0 0 unless (defined $response)
709 0 0 if (defined $precise and $precise = 1) { }
710 0 0 if &version_before(131584)
713 0 0 unless (defined $response)
718 0 0 if &version_before(66048)
721 0 0 unless (defined $response)
746 0 0 if (&vendor_is(2)) { }
747 0 0 if &release_before(3)
748 0 0 if &revision_before(37)
750 0 0 if &version_before(264704)
753 0 0 if ($ra < 0 or $ra > 360)
756 0 0 if ($de < -90 or $de > 90)
760 0 0 if (defined $precise and $precise = 1) { }
768 0 0 if (defined $response) { }
787 0 0 if &version_before(66048)
791 0 0 if (defined $response) { }
806 0 0 if &version_before(66048)
810 0 0 if (defined $response) { }
826 0 0 if &version_before(66048)
830 0 0 if (defined $response) { }
846 0 0 if &version_before(131584)
850 0 0 if (defined $response) { }
866 0 0 if &version_before(66048)
870 0 0 if (defined $response)
871 0 0 if (length $response == 3) { }
0 0 elsif (length $response == 7) { }
872 0 0 wantarray ? :
875 0 0 wantarray ? :
899 0 0 if &version_before(131840)
903 0 0 unless (defined $response)
918 0 0 if (defined $str and $str = 1) { }
921 0 0 if ($lato)
924 0 0 if ($lono)
930 0 0 if ($lato)
933 0 0 if ($lono)
957 0 0 if &version_before(131840)
959 0 0 if ($lon < 0)
963 0 0 if ($lat < 0)
968 0 0 if ($lat > 90 or $lon > 180)
986 0 0 if (defined $response) { }
1008 0 0 if &version_before(131840)
1012 0 0 unless (defined $response)
1023 0 0 if $tz > 12
1026 0 0 if (defined $str and $str = 1) { }
1054 0 0 if &version_before(131840)
1057 0 0 if $tz < 0
1059 0 0 if (defined $dst and $dst != 0) { }
1081 0 0 unless (defined $response)
1086 0 0 if ($use_rtc == 0 or $use_rtc == undef)
1093 0 0 if ($model == 5 or $model == 20)
1101 0 0 unless (defined $response)
1107 0 0 unless (defined $response)
1113 0 0 unless (defined $response)
1132 0 0 if &version_before(131840)
1136 0 0 if (defined $response) { }
1143 0 0 if (&vendor_is(2)) { }
1144 0 0 if ($mode == 0) { }
0 0 elsif ($mode == 1) { }
0 0 elsif ($mode == 2) { }
0 0 elsif ($mode == 3) { }
1158 0 0 if ($mode == 0) { }
0 0 elsif ($mode == 1) { }
0 0 elsif ($mode == 2) { }
0 0 elsif ($mode == 3) { }
1188 0 0 if &version_before(67072)
1191 0 0 if (&vendor_is(2)) { }
1192 0 0 if ($mode == 0) { }
0 0 elsif ($mode == 1) { }
0 0 elsif ($mode == 4 or $mode == 2 or $mode == 3) { }
0 0 elsif ($mode == 5) { }
1212 0 0 if ($mode == 0) { }
0 0 elsif ($mode == 1) { }
0 0 elsif ($mode == 2) { }
0 0 elsif ($mode == 3) { }
0 0 elsif ($mode == 4) { }
0 0 elsif ($mode == 5) { }
1226 0 0 unless (defined $lat)
1229 0 0 if ($lat < 0) { }
1248 0 0 if (defined $response) { }
1270 0 0 if (&vendor_is(2)) { }
1271 0 0 if &release_before(3)
1272 0 0 if &revision_before(1)
1274 0 0 if &version_before(67072)
1277 0 0 if ($axis > 0) { }
1283 0 0 if ($direction > 0) { }
1289 0 0 if ($rate < 0 or $rate > 9)
1295 0 0 if (defined $response) { }
1316 0 0 if (&vendor_is(2)) { }
1317 0 0 if &release_before(3)
1318 0 0 if &revision_before(1)
1320 0 0 if &version_before(67072)
1323 0 0 if ($axis > 0) { }
1329 0 0 if ($direction > 0) { }
1341 0 0 if (defined $response) { }
1381 0 0 if &version_before(16777215)
1383 0 0 if ($axis > 0) { }
1391 0 0 if (defined $response) { }
1412 0 0 if &version_before(16777215)
1414 0 0 if ($axis > 0) { }
1422 0 0 if ($rate < 0 or $rate > 99)
1429 0 0 if ($rate == 0) { }
0 0 elsif ($rate == 99) { }
1439 0 0 if (defined $response) { }
1459 0 0 if &vendor_not(1)
1460 0 0 if &version_before(16777215)
1462 0 0 if ($axis > 0) { }
1468 0 0 if ($direction > 0) { }
1475 0 0 if (defined $response) { }
1495 0 0 if &vendor_not(1)
1496 0 0 if &version_before(16777215)
1498 0 0 if ($axis > 0) { }
1504 0 0 if ($direction > 0) { }
1511 0 0 if ($backlash < 0 or $backlash > 99)
1516 0 0 if (defined $response) { }
1559 0 0 if ($num =~ /^[-+]?\d+\.?\d*$/) { }
1622 0 0 if ($x1 == 0) { }
1623 0 0 if ($y1 > 0) { }
1627 0 0 if ($ra1 < 0)
1646 0 0 if ($num - floor($num) < 0.5) { }
1680 0 0 if ($ang >= 0) { }
1702 0 0 if ($ang >= 0) { }
1747 0 0 if (@dms > 3 or $angle eq '')
1751 0 0 unless ($dms[0] =~ /^[+-]?\d+$/)
1754 0 0 if ($dms[1] < 0 or $dms[1] > 59 or $dms[1] =~ /[\D]/)
1757 0 0 if ($dms[2] < 0 or $dms[2] > 59 or $dms[2] =~ /[\D]/)
1761 0 0 if ($dms[0] =~ /^-/) { }
1779 0 0 if (@hms > 3 or $hours eq '')
1783 0 0 if ($hms[0] < 0 or $hms[0] > 23 or $hms[0] =~ /[\D]/)
1786 0 0 if ($hms[1] < 0 or $hms[1] > 59 or $hms[1] =~ /[\D]/)
1789 0 0 if ($hms[2] < 0 or $hms[2] > 59 or $hms[2] =~ /[\D]/)
1816 0 0 if $d2 < -90.0002
1817 0 0 if $d2 > 90.0002
1838 0 0 if $d2 < -90.0002
1839 0 0 if $d2 > 90.0002
1857 0 0 if $d1 < 0
1858 0 0 if $d2 < 0
1881 0 0 if $d1 < 0
1882 0 0 if $d2 < 0