File Coverage

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

Criterion	Covered	Total	%
statement	25	25	100.0
branch			n/a
condition			n/a
subroutine	13	13	100.0
pod	8	8	100.0
total	46	46	100.0

use strict;
use warnings;
package Device::RFXCOM::Response::Thermostat;
$Device::RFXCOM::Response::Thermostat::VERSION = '1.142010';
# ABSTRACT: Device::RFXCOM::Response class for Thermostat RF messages


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


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


sub type { 'thermostat' }


sub device { shift->{device} }


sub state { shift->{state} }


sub temp { shift->{temp} }


sub set { shift->{set} }


sub mode { shift->{mode} }


sub summary {
  my $self = shift;
  sprintf('%s/%s=%d/%d/%s/%s',
          $self->type,
          $self->device,
          $self->temp,
          $self->set,
          $self->state,
          $self->mode)
}

1;

__END__