BC75XLT.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 0 | 91 | 0.0 |
line | l | !l | condition |
---|---|---|---|
506 | 0 | 0 | $data{'bands'} and ref $data{'bands'} eq 'ARRAY' and scalar @{$data{'bands'};} |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
506 | 0 | 0 | 0 | $data{'bands'} and ref $data{'bands'} eq 'ARRAY' |
716 | 0 | 0 | 0 | $args and ref $args eq 'ARRAY' |
0 | 0 | 0 | $args and ref $args eq 'ARRAY' and scalar @$args > 0 | |
731 | 0 | 0 | 0 | scalar @out and $out[0] eq 'ERR' |
848 | 0 | 0 | 0 | $pgm and not $$self{'_pgm'} |
889 | 0 | 0 | 0 | $pgm and not $$self{'_pgm'} |
898 | 0 | 0 | 0 | $$res{'data'} and $$res{'data'}[0] eq 'NG' |
line | l | !l | condition |
---|---|---|---|
31 | 0 | 0 | $opts{'baudrate'} || 57600 |
33 | 0 | 0 | 'Device::SerialPort'->new($device) || (return undef) |
34 | 0 | 0 | $opts{'databits'} || 8 |
35 | 0 | 0 | $opts{'baudrate'} || 57600 |
36 | 0 | 0 | $opts{'parity'} || 'none' |
37 | 0 | 0 | $opts{'stopbits'} || 1 |
38 | 0 | 0 | $opts{'handshake'} || 'none' |
39 | 0 | 0 | $opts{'read_cost_time'} || 1 |
41 | 0 | 0 | $opts{'fatal'} || 0 |
0 | 0 | $opts{'echo'} || 0 | |
0 | 0 | $opts{'timeout'} || 999 | |
296 | 0 | 0 | $opts{'start'} || 1 |
297 | 0 | 0 | $opts{'stop'} || 300 |
365 | 0 | 0 | $$data{'priority_code'} || $self->_fromName($$data{'priority'}, \%chPRI) || 0 |
366 | 0 | 0 | $$data{'lockout_code'} || $self->_fromName($$data{'lockout'}, \%chLOUT) || 0 |
869 | 0 | 0 | $opts{'index'} || 0 |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
262 | 0 | 0 | 0 | $index < 1 or $index > 300 |
300 | 0 | 0 | 0 | $start < 1 or $start > 300 |
301 | 0 | 0 | 0 | $stop < 1 or $stop > 300 |
335 | 0 | 0 | 0 | $bank < 1 or $bank > 10 |
357 | 0 | 0 | 0 | $index < 1 or $index > 300 |
363 | 0 | 0 | 0 | $$data{'delay_code'} || $self->_fromName($$data{'delay'}, \%chDLY) |
376 | 0 | 0 | 0 | $index < 1 or $index > 300 |
431 | 0 | 0 | 0 | $value == -1 or $value eq 'OK' |
531 | 0 | 0 | 0 | $index < 1 or $index > 10 |
560 | 0 | 0 | 0 | $index < 1 or $index > 10 |
653 | 0 | 0 | 0 | $idx < 1 or $idx > 10 |
686 | 0 | 0 | 0 | $idx < 1 or $idx > 10 |