Branch Coverage

blib/lib/Device/Modbus/TCP.pm
Criterion Covered Total %
branch 12 20 60.0


line true false branch
20 7 19 unless $bytes
23 0 19 unless $sock->connected
33 2 25980 if ($!{'EINTR'} or length $msg == 0)
38 0 25980 unless (defined $rc)
62 0 3 if (not defined $rc)
67 0 0 if ($_ =~ /timed out/) { }
76 3 0 if $attempts >= 5 or $rc == length $adu->binary_message
91 0 16 unless defined $self->{'buffer'} and length $self->{'buffer'} >= $bytes
98 3 9 if (defined $msg)
100 3 0 if defined $msg->{'unit'}