1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
#########################################################################################
# Package HiPi::Interface::DS18X20
# Description : 1 Wire Thermometers
# Copyright : Copyright (c) 2013-2023 Mark Dootson
# License : This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#########################################################################################
package HiPi::Interface::DS18X20;
#########################################################################################
use strict;
use warnings;
use parent qw( HiPi::Interface );
use HiPi::Device::OneWire;
use Carp;
our $VERSION ='0.91';
__PACKAGE__->create_accessors( qw( id correction divider) );
sub list_devices {
my($class) = @_;
my @devices = grep { $_->{family} =~ /^(10|28)$/ } ( HiPi::Device::OneWire->list_devices() );
return @devices;
}
sub new {
my($class, %params) = @_;
$params{correction} ||= 0.0;
$params{divider} ||= 1.0;
unless ( HiPi::Device::OneWire->id_exists( $params{id} ) ){
croak qq($params{id} is not present on 1 wire bus);
}
my $self = $class->SUPER::new( %params );
return $self;
}
sub temperature {
my $self = shift;
my $data = HiPi::Device::OneWire->read_data( $self->id );
if($data !~ /YES/) {
# invalid crc
carp qq(CRC check failed or invalid device for id ) . $self->id;
return undef;
}
if($data =~ /t=(\D*\d+)/i) {
return ( $1 + $self->correction ) / $self->divider;
} else {
carp qq(Could not parse temperature data for device ) . $self->id;
return undef;
}
}
## legacy calls
*HiPi::Interface::DS18X20::list_slaves = \&list_devices;
1;
__END__
|
