File Coverage

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

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

use strict;
use warnings;
package Device::RFXCOM::Response::Security;
$Device::RFXCOM::Response::Security::VERSION = '1.142010';
# ABSTRACT: Device::RFXCOM::Response class for Security messages from RFXCOM receiver


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


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


sub type { 'security' }


sub device { shift->{device} }


sub event { shift->{event} }


sub tamper { shift->{tamper} }


sub min_delay { shift->{min_delay} }


sub summary {
  my $self = shift;
  $self->type.'/'.$self->device.'/'.$self->event.
    ($self->tamper ? '/tamper' : '').
    ($self->min_delay ? '/min' : '')
}

1;

__END__