File Coverage

blib/lib/Device/Modbus/TCP/ADU.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	11	12	91.6
condition	3	3	100.0
subroutine	9	9	100.0
pod	0	5	0.0
total	56	62	90.3

package Device::Modbus::TCP::ADU;

use parent 'Device::Modbus::ADU';
use Carp;
use strict;
use warnings;

sub id {
    my ($self, $value) = @_;
    if (defined $value) {
        $self->{id} = $value;
    }
    croak "ID has not been declared"
        unless exists $self->{id};
    return $self->{id};
}

sub length {
    my ($self, $value) = @_;
    if (defined $value) {
        $self->{length} = $value;
    }
    croak "PDU length has not been declared"
        unless exists $self->{length};
    return $self->{length};
}

# Modbus TCP states unit number is 0xFF by default
sub unit {
    my $self = shift;
    $_[0] = 0xFF unless exists $self->{unit} || defined $_[0];
    return $self->SUPER::unit(@_);
}

sub binary_message {
    my $self = shift;
    croak "Please include a unit number in the ADU."
        unless $self->unit;
    my $header = $self->build_header;
    my $pdu    = $self->message->pdu();
    return $header . $pdu;
}

#### APU building

sub build_header {
    my $self   = shift;
    my $header = pack 'nnnC',
        $self->id,                                # Transaction id
        0x0000,                                   # Protocol number (Modbus)
        CORE::length($self->message->pdu) + 1,    # Length of PDU + 1 byte for unit
        $self->unit;                              # Unit number
    return $header;
}

1;