| blib/lib/Device/Modbus/Unit/Route.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 18 | 18 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 20 | 5 | 195 | unless exists $args{$field} |
| 23 | 1 | 36 | unless exists $valid_zone{$args{'zone'}} |
| 25 | 2 | 34 | if $args{'read_write'} eq 'write' and $valid_zone{$args{'zone'}} eq 'ro' |
| 27 | 1 | 33 | unless $args{'read_write'} =~ /^read|write$/ |
| 29 | 2 | 31 | unless ref $args{'routine'} and ref $args{'routine'} eq 'CODE' |
| 49 | 2 | 60 | if $route =~ /\*/ |
| 56 | 11 | 66 | if ($atom =~ /^(\d+)\-(\d+)$/) { } |
| 73 | 46 | 135 | if &$test($value) |
| 82 | 45 | 124 | if &$test($value) |