File Coverage

blib/lib/RPi/BMP180.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package RPi::BMP180;

use strict;
use warnings;

our $VERSION = '2.3604';

use WiringPi::API qw(:all);
use RPi::WiringPi::Constant qw(:all);

sub new {
    my ($class, $pin_base) = @_;
    my $self = bless {}, $class;
    $self->_pin_base($pin_base);

    setup_gpio();
    bmp180_setup($pin_base);

    return $self;
}
sub temp {
    my ($self, $want) = @_;
    return bmp180_temp($self->_pin_base + 0, $want);
}
sub pressure {
    my ($self) = @_;
    return bmp180_pressure($self->_pin_base + 1);
}
sub _pin_base {
    my ($self, $base) = @_;

    if (defined $base){
        if ($base !~ /^\d+$/){
            die "_pin_base() requires an integer\n";
        }
        $self->{bmp_pin_base} = $base;
    }

    if (! defined $self->{bmp_pin_base}){
        die "_pin_base() has not yet been set...\n";
    }
    return $self->{bmp_pin_base};
}
sub _vim{};

1;
__END__