File Coverage

blib/lib/Device/Modbus/ASCII.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	5	8	62.5
condition			n/a
subroutine	8	8	100.0
pod	0	3	0.0
total	45	51	88.2

package Device::Modbus::ASCII;

use Device::Modbus::ASCII::ADU;
use Carp;
use strict;
use warnings;

our $VERSION = '0.006';

use Role::Tiny;

#### Modbus ASCII Operations

sub new_adu {
    my ($self, $msg) = @_;
    my $adu = Device::Modbus::ASCII::ADU->new;
    if (defined $msg) {
        $adu->message($msg);
        $adu->unit($msg->{unit}) if defined $msg->{unit};
    }
    return $adu;
}

### Parsing a message

sub parse_header {
    my ($self, $adu) = @_;
    my ($col, $unit) = $self->parse_buffer(3, 'AA2');
    croak "Response message must start by ':', but it does not"
        unless $col eq ':';
    $adu->unit(1*$unit);
    return $adu;
}

sub parse_footer {
    my ($self, $adu) = @_;
    # print STDERR "Remaining chars: <", $self->{buffer}, ">\n";
    my $lrc = $self->parse_buffer(2, 'A2');
    my $ln  = $self->parse_buffer(2, 'H4');
    croak "Response message must end by '\r\n', but it does not"
        unless $ln eq '0d0a';  # \r\n
    $adu->lrc( unpack 'C', pack 'H4', $lrc);
    return $adu;
}

1;

__END__