line |
true |
false |
branch |
43
|
0 |
0 |
unless my $port = 'Device::SerialPort'->new($device) |
68
|
0 |
0 |
if ($count > 0) { } |
71
|
0 |
0 |
if $chars |
109
|
0 |
0 |
ref $text eq 'ARRAY' ? : |
126
|
0 |
0 |
$pct > 1 ? : |
151
|
0 |
0 |
unless $ascii <= 7 and $ascii >= 0 |
152
|
0 |
0 |
ref $data[0] eq 'ARRAY' ? : |
153
|
0 |
0 |
unless scalar @data == 8 |
160
|
0 |
0 |
unless $ascii >= 0 and $ascii <= 7 |
167
|
0 |
0 |
unless ref $line eq 'ARRAY' |
170
|
0 |
0 |
if lc $line[$i] eq 'x' |
184
|
0 |
0 |
if ($val == 0) { } |
|
0 |
0 |
elsif ($val <= 8) { } |
194
|
0 |
0 |
if ($val == 0) { } |
|
0 |
0 |
elsif ($val <= 8) { } |
|
0 |
0 |
elsif ($val <= 16) { } |