File Coverage

blib/lib/Device/RFXCOM/Decoder.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch			n/a
condition			n/a
subroutine	10	10	100.0
pod	4	4	100.0
total	40	40	100.0

use strict;
use warnings;
package Device::RFXCOM::Decoder;
$Device::RFXCOM::Decoder::VERSION = '1.142010';
# ABSTRACT: Device::RFXCOM::Decoder base class for decoding RF messages


use 5.006;
use constant DEBUG => $ENV{DEVICE_RFXCOM_DECODER_DEBUG};
use Carp qw/croak/;

use Exporter;

our @ISA = qw(Exporter);
our %EXPORT_TAGS = ( 'all' => [ qw(lo_nibble hi_nibble nibble_sum) ] );
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
our @EXPORT = qw();


sub new {
  my $pkg = shift;
  bless { @_ }, $pkg;
}


sub lo_nibble {
  $_[0]&0xf;
}


sub hi_nibble {
  ($_[0]&0xf0)>>4;
}


sub nibble_sum {
  my $s = 0;
  foreach (0..$_[0]-1) {
    $s += $_[1]->[$_];
  }
  return $s;
}

1;

__END__