File Coverage

blib/lib/Device/RFXCOM/Response.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	10	10	100.0
condition			n/a
subroutine	16	16	100.0
pod	11	11	100.0
total	68	68	100.0

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


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


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


sub type { shift->{type} }


sub header_byte { shift->{header_byte} }


sub master { shift->{master} }


sub hex_data { unpack 'H*', shift->data }


sub data { shift->{data} }


sub length { length shift->data }


sub bytes { shift->{bytes} }


sub messages { shift->{messages} || [] }


sub duplicate { shift->{duplicate} }


sub summary {
  my $self = shift;
  my $str = join "\n  ", map { $_->summary } @{$self->messages};
  sprintf('%s %s %02x.%s%s%s',
          $self->master ? 'master' : 'slave',
          $self->type,
          $self->header_byte,
          $self->hex_data,
          $self->duplicate ? '(dup)' : '',
          $str =~ /\n/ ? ":\n  ".$str : $str ne '' ? ': '.$str : '');
}

1;

__END__