| line |
true |
false |
branch |
|
50
|
0 |
0 |
if defined $_[1] |
|
51
|
0 |
0 |
if defined $_[1] |
|
52
|
0 |
0 |
if defined $_[1] |
|
53
|
0 |
0 |
if defined $_[1] |
|
54
|
0 |
0 |
if defined $_[1] |
|
55
|
0 |
0 |
if defined $_[1] |
|
56
|
0 |
0 |
if defined $_[1] |
|
57
|
0 |
0 |
if defined $_[1] |
|
58
|
0 |
0 |
if defined $_[1] |
|
59
|
0 |
0 |
if defined $_[1] |
|
60
|
0 |
0 |
if defined $_[1] |
|
61
|
0 |
0 |
if defined $_[1] |
|
74
|
0 |
0 |
if ($self->lockfile) { } |
|
82
|
0 |
0 |
unless ($port = 'Device::SerialPort'->new($self->portname, $quite, $lockfile)) |
|
154
|
0 |
0 |
unless ($filename) |
|
156
|
0 |
0 |
unless (open OUTFILE, ">$filename") |
|
177
|
0 |
0 |
if ($opt lt '001' or $opt gt '118') |
|
181
|
0 |
0 |
unless ($count = $self->writeCmd('EX' . $opt . ';')) |
|
199
|
0 |
0 |
if ($channel lt '01' or $channel gt '05') |
|
203
|
0 |
0 |
unless ($count = $self->writeCmd('pb' . $channel . ';')) |
|
217
|
0 |
0 |
unless ($power ge '005' and $power le '100') |
|
221
|
0 |
0 |
unless ($count = $self->writeCmd('pc' . $power . ';')) |
|
233
|
0 |
0 |
unless ($power = $self->writeCmd('pc;')) |
|
250
|
0 |
0 |
unless ($swap = $self->writeCmd('SV;')) |
|
267
|
0 |
0 |
if ($vfo eq 'A') { } |
|
|
0 |
0 |
elsif ($vfo eq 'B') { } |
|
268
|
0 |
0 |
unless ($result = $self->writeCmd('VS0;')) |
|
271
|
0 |
0 |
unless ($result = $self->writeCmd('VS1;')) |
|
288
|
0 |
0 |
unless ($result = $self->writeCmd('VS;')) |
|
292
|
0 |
0 |
if ($v == 0) { } |
|
|
0 |
0 |
elsif ($v == 1) { } |
|
319
|
0 |
0 |
unless ($inv_band{$band}) |
|
324
|
0 |
0 |
unless ($numchars = $self->writeCmd('BS' . $b . ';')) |
|
341
|
0 |
0 |
if ($vfo ne 'A' and $vfo ne 'B') |
|
346
|
0 |
0 |
unless ($result = $self->readResult) |
|
369
|
0 |
0 |
if ($freq < 30000 or $freq > 56000000) |
|
376
|
0 |
0 |
if ($vfo ne 'A' and $vfo ne 'B') |
|
380
|
0 |
0 |
if ($vfo eq 'A') { } |
|
|
0 |
0 |
elsif ($vfo eq 'B') { } |
|
405
|
0 |
0 |
unless ($count = $port->write($cmd)) |
|
422
|
0 |
0 |
unless ($inv_rig_mode{$mode}) |
|
466
|
0 |
0 |
unless ($meter = $self->readResult) |
|
485
|
0 |
0 |
unless ($result = $self->writeCmd('BY;')) |
|
489
|
0 |
0 |
if ($b == 10) { } |
|
510
|
0 |
0 |
if ($mox == 1) { } |
|
|
0 |
0 |
elsif ($mox == 0) { } |
|
|
0 |
0 |
elsif ($mox == 2) { } |
|
511
|
0 |
0 |
unless ($result = $self->writeCmd('MX1;')) |
|
513
|
0 |
0 |
unless ($result = $self->writeCmd('MX0;')) |
|
515
|
0 |
0 |
unless ($result = $self->writeCmd('MX;')) |
|
539
|
0 |
0 |
if ($vox == 1) { } |
|
|
0 |
0 |
elsif ($vox == 0) { } |
|
|
0 |
0 |
elsif ($vox == 2) { } |
|
540
|
0 |
0 |
unless ($result = $self->writeCmd('VX1;')) |
|
542
|
0 |
0 |
unless ($result = $self->writeCmd('VX0;')) |
|
544
|
0 |
0 |
unless ($result = $self->writeCmd('VX;')) |
|
565
|
0 |
0 |
unless ($result = $self->writeCmd('TX;')) |
|
569
|
0 |
0 |
if ($b == 0) { } |
|
|
0 |
0 |
elsif ($b == 1) { } |
|
|
0 |
0 |
elsif ($b == 2) { } |
|
591
|
0 |
0 |
unless ($result = $self->writeCmd('FS;')) |
|
595
|
0 |
0 |
if ($b == 0) { } |
|
|
0 |
0 |
elsif ($b == 1) { } |
|
619
|
0 |
0 |
if ($cmd == 0) { } |
|
|
0 |
0 |
elsif ($cmd == 1) { } |
|
620
|
0 |
0 |
unless ($result = $self->writeCmd('FS0;')) |
|
623
|
0 |
0 |
unless ($result = $self->writeCmd('FS1;')) |
|
648
|
0 |
0 |
if ($count > 0) { } |
|
651
|
0 |
0 |
if ($saw =~ /;/) |