| line |
true |
false |
branch |
|
48
|
1 |
34 |
unless $args{'function'} or $args{'code'} |
|
50
|
45 |
34 |
if ($args{'function'}) { } |
|
52
|
1 |
44 |
unless exists $Device::Modbus::code_for{$args{'function'}} |
|
57
|
1 |
33 |
unless exists $Device::Modbus::function_for{$args{'code'}} |
|
64
|
39 |
269 |
if $_ ~~ ['bytes', 'write_quantity'] |
|
65
|
17 |
252 |
if $_ eq 'quantity' and $args{'code'} ~~ [15, 16] |
|
69
|
1 |
251 |
unless exists $args{$_} |
|
75
|
6 |
10 |
unless (defined $args{'quantity'} and $args{'quantity'} >= 1 and $args{'quantity'} <= 2000) |
|
83
|
6 |
11 |
unless (defined $args{'quantity'} and $args{'quantity'} >= 1 and $args{'quantity'} <= 125) |
|
91
|
5 |
3 |
if $args{'value'} |
|
92
|
1 |
7 |
unless (defined $args{'value'} and $args{'value'} >= 0 and $args{'value'} <= 65535) |
|
100
|
2 |
5 |
unless (defined $args{'value'} and $args{'value'} >= 0 and $args{'value'} <= 65535) |
|
108
|
4 |
5 |
unless (defined $args{'values'} and @{$args{'values'};} >= 1 and @{$args{'values'};} <= 1968) |
|
116
|
4 |
4 |
unless (defined $args{'values'} and @{$args{'values'};} >= 1 and @{$args{'values'};} <= 123) |
|
124
|
7 |
4 |
unless (defined $args{'read_quantity'} and defined $args{'values'} and $args{'read_quantity'} >= 1 and $args{'read_quantity'} <= 125 and @{$args{'values'};} >= 1 and @{$args{'values'};} <= 121) |
|
152
|
2 |
1 |
if $_ == 5 and $self->{'value'} |