File Coverage

blib/lib/Device/RFXCOM/Decoder/Electrisave.pm

Criterion	Covered	Total	%
statement	38	38	100.0
branch	8	8	100.0
condition	6	6	100.0
subroutine	8	8	100.0
pod	1	1	100.0
total	61	61	100.0

use strict;
use warnings;
package Device::RFXCOM::Decoder::Electrisave;
$Device::RFXCOM::Decoder::Electrisave::VERSION = '1.142010';
# ABSTRACT: Device::RFXCOM::Decoder::Electrisave decode Electrisave RF messages


use 5.006;
use constant DEBUG => $ENV{DEVICE_RFXCOM_DECODER_ELECTRISAVE_DEBUG};
use Carp qw/croak/;
use base 'Device::RFXCOM::Decoder';
use Device::RFXCOM::Response::Sensor;


sub decode {
  my ($self, $parent, $message, $bytes, $bits, $result) = @_;
  $bits == 120 or return;

  ($bytes->[0]==0xea && $bytes->[9]==0xff && $bytes->[10]==0x5f) or return;

  my $device = sprintf "%02x", $bytes->[2];
  my @ct = ();
  $ct[1] = ( (($bytes->[3]     )   )+(($bytes->[4]&0x3 )<<8) ) / 10;
  $ct[2] = ( (($bytes->[4]&0xFC)>>2)+(($bytes->[5]&0xF )<<6) ) / 10;
  $ct[3] = ( (($bytes->[5]&0xF0)>>4)+(($bytes->[6]&0x3F)<<4) ) / 10;
  $ct[0] = $ct[1] + $ct[2] + $ct[3];
  foreach my $index (0..3) {
    my $dev = $device.($index ? '.'.$index : '');
    printf "electrisave d=%s current=%.2f\n", $dev, $ct[$index] if DEBUG;
    push @{$result->{messages}},
      Device::RFXCOM::Response::Sensor->new(device => 'electrisave.'.$dev,
                                            measurement => 'current',
                                            value => $ct[$index]);
  }
  push @{$result->{messages}},
    Device::RFXCOM::Response::Sensor->new(device => 'electrisave.'.$device,
                                          measurement => 'battery',
                                          value => (($bytes->[1]&0x10)
                                                    ? 10 : 90),
                                          units => '%');
  return 1;
}

1;

__END__