| blib/lib/Device/Modbus/Unit/Route.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 18 | 18 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 19 | 5 | 195 | unless exists $args{$field} |
| 22 | 1 | 36 | unless exists $valid_zone{$args{'zone'}} |
| 24 | 2 | 34 | if $args{'read_write'} eq 'write' and $valid_zone{$args{'zone'}} eq 'ro' |
| 26 | 1 | 33 | unless $args{'read_write'} =~ /^read|write$/ |
| 28 | 2 | 31 | unless ref $args{'routine'} and ref $args{'routine'} eq 'CODE' |
| 48 | 2 | 60 | if $route =~ /\*/ |
| 55 | 11 | 66 | if ($atom =~ /^(\d+)\-(\d+)$/) { } |
| 72 | 46 | 135 | if &$test($value) |
| 81 | 45 | 124 | if &$test($value) |