File Coverage

blib/lib/Device/MAS345.pm

Criterion	Covered	Total	%
statement	19	48	39.5
branch	3	18	16.6
condition			n/a
subroutine	5	9	55.5
pod	0	5	0.0
total	27	80	33.7

###########################################
package Device::MAS345;
###########################################
use strict;
use warnings;
use Device::SerialPort;
use Log::Log4perl qw(:easy);

our $VERSION = "0.03";

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

    my $self = {
        port     => "/dev/ttyS0",
        baudrate => 600,
        bytes    => 14,
        pause    => 1,
        databits => 7,
        %options,
    };

    bless $self, $class;
    $self->reset();

    return $self;
}

###########################################
sub error {
###########################################
    my($self, $err) = @_;

    $self->{error} = $err if defined $err;
    return $self->{error};
}

###########################################
sub read {
###########################################
    my($self) = @_;

    my $data;

    $data = $self->read_raw();

    my $valrx = qr/-?[\w.]+/;

    if($data =~ /(\w+)\s+($valrx)\s+(\w+)/) {
        return ($2, $3, $1);
    } elsif($data =~ /(\w+)\s+($valrx)(kOhm|MOhm)/) {   # for bunched lines
        return ($2, $3, $1);
    } elsif($data =~ /($valrx)/) {
        return ($1, "", "");
    }

    LOGDIE "Unrecognized response: $data";
}

###########################################
sub read_raw {
###########################################
    my($self) = @_;

    DEBUG "Purging";
    $self->{serial}->purge_all() ||
        LOGDIE "Purge failed ($!)";

    $self->{serial}->rts_active(0);
    $self->{serial}->dtr_active(1);

    DEBUG "Sending newline";
    $self->{serial}->write("\n") ||
        LOGDIE "Send of newline failed";

    DEBUG "Waiting $self->{pause} seconds";
    select(undef, undef, undef, $self->{pause});

    DEBUG "Reading response";
    my($count, $data) = $self->{serial}->read($self->{bytes});

    DEBUG "Received $count bytes";
    if($count != $self->{bytes}) {
        LOGDIE "Read $self->{bytes}, got only $count";
    }

    return $data;
}

###########################################
sub reset {
###########################################
    my($self) = @_;

    $self->{serial} = Device::SerialPort->new(
            $self->{port}, undef);

    $self->{serial}->baudrate($self->{baudrate}) or
        LOGDIE "Setting baudrate to $self->{baudrate} failed";

    $self->{serial}->databits($self->{databits}) or
        LOGDIE "Setting databits to $self->{databits} failed";

}

1;

__END__