| line |
true |
false |
branch |
|
119
|
0 |
2 |
unless ($args{'type'}) |
|
120
|
0 |
0 |
if (eval {
do {
$args{'device'}->isa('Device::SerialPort')
}
}) { } |
|
|
0 |
0 |
elsif (eval {
do {
$args{'device'}->isa('Win32::SerialPort')
}
}) { } |
|
|
0 |
0 |
elsif ($args{'device'} =~ m[^COM\d|^/dev/(?:term|tty)]) { } |
|
|
0 |
0 |
elsif ($args{'device'} =~ /^[a-zA-Z0-9.-]+:[0-9]+$/) { } |
|
136
|
0 |
2 |
$args{'debug'} ? : |
|
140
|
0 |
2 |
unless exists $args{'type'} |
|
141
|
1 |
1 |
unless exists $args{'device'} |
|
155
|
0 |
1 |
unless eval "require $class" |
|
179
|
0 |
0 |
unless $args{'cmd'} |
|
185
|
0 |
0 |
if ($args{'expect'}) |
|
197
|
0 |
0 |
if ($args{'feedback'} and $self->feedback_chars) |
|
227
|
0 |
0 |
if ($self->immediate_cmds) { } |
|
236
|
0 |
0 |
if (defined $raw and ref $ic_cmds{$cmd}{'filter'} eq 'CODE') |
|
244
|
0 |
0 |
wantarray ? : |
|
267
|
0 |
0 |
$chars[0] eq 'Y' ? : |
|
|
0 |
0 |
$chars[1] eq 'Y' ? : |
|
|
0 |
0 |
$chars[2] eq 'Y' ? : |
|
|
0 |
0 |
$chars[3] eq 'Y' ? : |
|
|
0 |
0 |
$chars[4] eq 'Y' ? : |
|
|
0 |
0 |
$chars[5] eq 'Y' ? : |
|
|
0 |
0 |
$chars[6] eq 'Y' ? : |
|
|
0 |
0 |
$chars[7] eq 'Y' ? : |
|
334
|
0 |
0 |
if (defined $raw and ref $sc_cmds{$cmd}{'filter'} eq 'CODE') |
|
338
|
0 |
0 |
wantarray ? : |
|
427
|
0 |
0 |
if $rc eq '5' |
|
447
|
0 |
0 |
unless $data_type =~ /^[AB]$/ |
|
449
|
0 |
0 |
unless $format =~ /^[BbPpU]$/ |
|
454
|
0 |
0 |
if $ic_enabled |
|
462
|
0 |
0 |
if $ic_enabled |
|
523
|
0 |
0 |
unless $self->label_edition |
|
534
|
0 |
0 |
if ($lc_cmds{$cmd}{'end_mode'}) |
|
583
|
0 |
0 |
unless exists $args{'lines'} |
|
584
|
0 |
0 |
unless ref $args{'lines'} eq 'ARRAY' |
|
595
|
0 |
0 |
if $rc ne '0' |
|
599
|
0 |
0 |
if ($rc ne '0') |
|
605
|
0 |
0 |
if ($args{'print_now'}) { } |