File Coverage

blib/lib/Device/RFXCOM/Response/HomeEasy.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	2	2	100.0
condition			n/a
subroutine	12	12	100.0
pod	7	7	100.0
total	45	45	100.0

use strict;
use warnings;
package Device::RFXCOM::Response::HomeEasy;
$Device::RFXCOM::Response::HomeEasy::VERSION = '1.142010';
# ABSTRACT: Device::RFXCOM::Response class for Home Easy message from RFXCOM receiver


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


sub new {
  my ($pkg, %p) = @_;
  bless { %p }, $pkg;
}


sub type { 'homeeasy' }


sub address { shift->{address} }


sub unit { shift->{unit} }


sub command { shift->{command} }


sub level { shift->{level} }


sub summary {
  my $self = shift;
  sprintf('%s/%s.%s/%s%s',
          $self->type,
          $self->address,$self->unit,
          $self->command,
          $self->level ? '['.$self->level.']' : '');
}

1;

__END__