File Coverage

blib/lib/RPi/EEPROM/AT24C32.pm

Criterion	Covered	Total	%
statement	15	47	31.9
branch	0	14	0.0
condition	0	12	0.0
subroutine	5	11	45.4
pod	4	4	100.0
total	24	88	27.2

package RPi::EEPROM::AT24C32;

use strict;
use warnings;

use Carp qw(croak);
use Data::Dumper;

our $VERSION = '0.01';

require XSLoader;
XSLoader::load('RPi::EEPROM::AT24C32', $VERSION);

use constant {
    ADDR_MIN_VALUE => 0,
    ADDR_MAX_VALUE => 4095,
    BYTE_MIN_VALUE => 0,
    BYTE_MAX_VALUE => 255
};

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

    $args{device}  //= '/dev/i2c-1';
    $args{address} //= 0x57;
    $args{delay}   //= 1;

    my $self = bless {%args}, $class;

    my $fd = eeprom_init($args{device}, $args{address}, $args{delay});
    $self->fd($fd);

    return $self;
}
sub fd {
    my ($self, $fd) = @_;
    $self->{fd} = $fd if defined $fd;
    return $self->{fd};
}
sub read {
    my ($self, $addr) = @_;
    _check_addr('read', $addr);
    return eeprom_read($self->fd, $addr);
}
sub write {
    my ($self, $addr, $byte) = @_;

    _check_addr('write', $addr);
    _check_byte('write', $byte);

    return eeprom_write($self->fd, $addr, $byte);
}
sub _check_addr {
    my ($sub, $addr) = @_;

    croak "_check_addr() requires \$sub param...\n" if ! defined $sub;

    if (! defined $addr){
        croak "$sub requires an EEPROM memory address sent in...\n";
    }

    if ($addr < ADDR_MIN_VALUE || $addr > ADDR_MAX_VALUE){
        croak "address parameter out of range. Must be between " .
              ADDR_MIN_VALUE . " and " . ADDR_MAX_VALUE . "\n";
    }

    return 1;
}
sub _check_byte {
    my ($sub, $byte) = @_;

    croak "_check_byte() requires \$sub param...\n" if ! defined $sub;

    if (! defined $byte){
        croak "$sub requires a data byte sent in...\n";
    }

    if ($byte < BYTE_MIN_VALUE || $byte > BYTE_MAX_VALUE){
        croak "data byte parameter out of range. Must be between " .
              BYTE_MIN_VALUE . " and " . BYTE_MAX_VALUE . "\n";
    }

    return 1;
}

1;
__END__