| line |
true |
false |
branch |
|
32
|
3 |
2 |
if (ref $unit and $unit->isa('Device::Modbus::Unit')) { } |
|
71
|
16 |
21 |
if ($code == 1 or $code == 2 or $code == 3 or $code == 4) { } |
|
|
5 |
16 |
elsif ($code == 5 or $code == 6) { } |
|
|
6 |
10 |
elsif ($code == 15) { } |
|
|
4 |
6 |
elsif ($code == 16) { } |
|
|
5 |
1 |
elsif ($code == 23) { } |
|
84
|
1 |
4 |
if ($code == 5 and $value != 65280 and $value != 0) { } |
|
101
|
4 |
2 |
$qty % 8 ? : |
|
103
|
5 |
1 |
if ($bytes == $bytes_qty) { } |
|
126
|
3 |
1 |
if ($bytes == 2 * $qty) { } |
|
149
|
4 |
1 |
if ($bytes == 2 * $write_qty) { } |
|
214
|
0 |
15 |
unless (exists $server->units->{$adu->unit}) |
|
219
|
7 |
8 |
if (exists $can_write_zone{$adu->code}) |
|
222
|
6 |
1 |
if $resp |
|
244
|
4 |
3 |
ref $match ? : |
|
247
|
3 |
4 |
unless ref $match |
|
268
|
1 |
3 |
if defined $response |
|
272
|
1 |
2 |
if ($code == 5 or $code == 6) { } |
|
|
1 |
1 |
elsif ($code == 15 or $code == 16) { } |
|
|
1 |
0 |
elsif ($code == 23) { } |
|
306
|
4 |
5 |
ref $match ? : |
|
310
|
5 |
4 |
unless ref $match |
|
319
|
1 |
2 |
unless scalar @vals == $quantity |
|
333
|
2 |
2 |
unless (defined $response) |