File Coverage

blib/lib/Device/Modbus/ASCII/Client.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	2	2	100.0
total	44	44	100.0

package Device::Modbus::ASCII::Client;

use parent 'Device::Modbus::Client';
use Device::Modbus::ASCII::ADU;
use Role::Tiny::With;

use Carp;
use strict;
use warnings;

with 'Device::Modbus::Serial';
with 'Device::Modbus::ASCII';

sub new {
    my ($class, %args) = @_;

    my $self = bless \%args, $class;
    $self->open_port;
    return $self;
}

# Parse the Application Data Unit
# The Device::Modbus response parsing parts require a binary string,
# and thus the message has to be transformed so that it can be
# processed. This is easier and far less risky than modifying the
# parse routine that already works correctly for Modbus TCP and RTU.
sub receive_response {
    my $self = shift;
    $self->read_port;
    my $adu = $self->new_adu();
    $self->parse_header($adu);

    # Convert the rest of the message to binary form
    my $buffer;
    while (length($self->{buffer}) > 4) {
        $buffer .= pack 'H*', substr $self->{buffer}, 0, 2, '';
    }
    substr $self->{buffer}, 0, -4, $buffer;
    $self->parse_pdu($adu);

    # But turn the LRC and the \r\n back to ascii
    $buffer = unpack 'H*', $self->{buffer};
    $self->parse_footer($adu);

    return $adu;
}


1;

__END__