| line |
true |
false |
branch |
|
184
|
0 |
0 |
if ($portname =~ m[^tcp://]) { } |
|
191
|
0 |
0 |
if ($is_tcp) |
|
192
|
0 |
0 |
unless my $port = 'IO::Socket::INET'->new('PeerHost', $portname, 'Proto', 'tcp') |
|
199
|
0 |
0 |
if ($^O eq 'MSWin32') { } |
|
204
|
0 |
0 |
unless (defined $port) |
|
224
|
0 |
0 |
if ($is_tcp == 0) { } |
|
233
|
0 |
0 |
if ($@ and not $@ =~ /TimedOut/) |
|
255
|
0 |
0 |
if ($count == 0) |
|
262
|
0 |
0 |
if ($char ne '#') |
|
314
|
0 |
0 |
if (defined $response) { } |
|
333
|
0 |
0 |
if ($ra < 0 or $ra > 360) |
|
336
|
0 |
0 |
if ($de < -90 or $de > 90) |
|
340
|
0 |
0 |
if (defined $precise and $precise = 1) { } |
|
348
|
0 |
0 |
if (defined $response) { } |
|
370
|
0 |
0 |
if ($az < 0 or $az > 360) |
|
373
|
0 |
0 |
if ($alt < -90 or $alt > 90) |
|
377
|
0 |
0 |
if (defined $precise and $precise = 1) { } |
|
385
|
0 |
0 |
if (defined $response) { } |
|
410
|
0 |
0 |
if (defined $precise and $precise = 1) { } |
|
413
|
0 |
0 |
unless (defined $response) |
|
420
|
0 |
0 |
unless (defined $response) |
|
447
|
0 |
0 |
if (defined $precise and $precise = 1) { } |
|
450
|
0 |
0 |
unless (defined $response) |
|
457
|
0 |
0 |
unless (defined $response) |
|
481
|
0 |
0 |
if ($ra < 0 or $ra > 360) |
|
484
|
0 |
0 |
if ($de < -90 or $de > 90) |
|
488
|
0 |
0 |
if (defined $precise and $precise = 1) { } |
|
496
|
0 |
0 |
if (defined $response) { } |
|
517
|
0 |
0 |
if (defined $response) { } |
|
534
|
0 |
0 |
if (defined $response) { } |
|
552
|
0 |
0 |
if (defined $response) { } |
|
570
|
0 |
0 |
if (defined $response) { } |
|
588
|
0 |
0 |
if (defined $response) { } |
|
614
|
0 |
0 |
unless (defined $response) |
|
629
|
0 |
0 |
if (defined $str and $str = 1) { } |
|
632
|
0 |
0 |
if ($lato) |
|
635
|
0 |
0 |
if ($lono) |
|
641
|
0 |
0 |
if ($lato) |
|
644
|
0 |
0 |
if ($lono) |
|
668
|
0 |
0 |
if ($lon < 0) |
|
672
|
0 |
0 |
if ($lat < 0) |
|
677
|
0 |
0 |
if ($lat > 90 or $lon > 180) |
|
695
|
0 |
0 |
if (defined $response) { } |
|
719
|
0 |
0 |
unless (defined $response) |
|
730
|
0 |
0 |
if $tz > 12 |
|
733
|
0 |
0 |
if (defined $str and $str = 1) { } |
|
759
|
0 |
0 |
if $tz < 0 |
|
761
|
0 |
0 |
if (defined $dst and $dst != 0) { } |
|
783
|
0 |
0 |
unless (defined $response) |
|
790
|
0 |
0 |
if ($model == 5 or $model == 20) |
|
798
|
0 |
0 |
unless (defined $response) |
|
804
|
0 |
0 |
unless (defined $response) |
|
810
|
0 |
0 |
unless (defined $response) |
|
829
|
0 |
0 |
if (defined $response) { } |
|
847
|
0 |
0 |
if ($mode < 0 or $mode > 3) |
|
853
|
0 |
0 |
if (defined $response) { } |
|
875
|
0 |
0 |
if ($axis > 0) { } |
|
881
|
0 |
0 |
if ($direction > 0) { } |
|
887
|
0 |
0 |
if ($rate < 0 or $rate > 9) |
|
893
|
0 |
0 |
if (defined $response) { } |
|
914
|
0 |
0 |
if ($axis > 0) { } |
|
920
|
0 |
0 |
if ($direction > 0) { } |
|
932
|
0 |
0 |
if (defined $response) { } |
|
972
|
0 |
0 |
if ($axis > 0) { } |
|
980
|
0 |
0 |
if (defined $response) { } |
|
1001
|
0 |
0 |
if ($axis > 0) { } |
|
1009
|
0 |
0 |
if ($rate < 0 or $rate > 99) |
|
1016
|
0 |
0 |
if ($rate == 0) { } |
|
|
0 |
0 |
elsif ($rate == 99) { } |
|
1026
|
0 |
0 |
if (defined $response) { } |
|
1046
|
0 |
0 |
if ($axis > 0) { } |
|
1052
|
0 |
0 |
if ($direction > 0) { } |
|
1059
|
0 |
0 |
if (defined $response) { } |
|
1079
|
0 |
0 |
if ($axis > 0) { } |
|
1085
|
0 |
0 |
if ($direction > 0) { } |
|
1092
|
0 |
0 |
if ($backlash < 0 or $backlash > 99) |
|
1097
|
0 |
0 |
if (defined $response) { } |
|
1140
|
0 |
0 |
if ($num =~ /^[-+]?\d+\.?\d*$/) { } |
|
1203
|
0 |
0 |
if ($x1 == 0) { } |
|
1204
|
0 |
0 |
if ($y1 > 0) { } |
|
1208
|
0 |
0 |
if ($ra1 < 0) |
|
1227
|
0 |
0 |
if ($num - floor($num) < 0.5) { } |
|
1261
|
0 |
0 |
if ($ang >= 0) { } |
|
1283
|
0 |
0 |
if ($ang >= 0) { } |
|
1328
|
0 |
0 |
if (@dms > 3 or $angle eq '') |
|
1332
|
0 |
0 |
unless ($dms[0] =~ /^[+-]?\d+$/) |
|
1335
|
0 |
0 |
if ($dms[1] < 0 or $dms[1] > 59 or $dms[1] =~ /[\D]/) |
|
1338
|
0 |
0 |
if ($dms[2] < 0 or $dms[2] > 59 or $dms[2] =~ /[\D]/) |
|
1342
|
0 |
0 |
if ($dms[0] =~ /^-/) { } |
|
1360
|
0 |
0 |
if (@hms > 3 or $hours eq '') |
|
1364
|
0 |
0 |
if ($hms[0] < 0 or $hms[0] > 23 or $hms[0] =~ /[\D]/) |
|
1367
|
0 |
0 |
if ($hms[1] < 0 or $hms[1] > 59 or $hms[1] =~ /[\D]/) |
|
1370
|
0 |
0 |
if ($hms[2] < 0 or $hms[2] > 59 or $hms[2] =~ /[\D]/) |
|
1397
|
0 |
0 |
if $d2 < -90.0002 |
|
1398
|
0 |
0 |
if $d2 > 90.0002 |
|
1419
|
0 |
0 |
if $d2 < -90.0002 |
|
1420
|
0 |
0 |
if $d2 > 90.0002 |
|
1438
|
0 |
0 |
if $d1 < 0 |
|
1439
|
0 |
0 |
if $d2 < 0 |
|
1462
|
0 |
0 |
if $d1 < 0 |
|
1463
|
0 |
0 |
if $d2 < 0 |