File Coverage

blib/lib/Net/MQTT/Message/JustMessageId.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	1	1	100.0
total	30	30	100.0

use strict;
use warnings;
package Net::MQTT::Message::JustMessageId;
$Net::MQTT::Message::JustMessageId::VERSION = '1.143260';
# ABSTRACT: Perl module for an MQTT message w/message id only payload


use base 'Net::MQTT::Message';
use Net::MQTT::Constants qw/:all/;


sub message_id { shift->{message_id} }

sub _remaining_string {
  my ($self, $prefix) = @_;
  $self->message_id.' '.$self->SUPER::_remaining_string($prefix)
}

sub _parse_remaining {
  my $self = shift;
  my $offset = 0;
  $self->{message_id} = decode_short($self->{remaining}, \$offset);
  substr $self->{remaining}, 0, $offset, '';
}

sub _remaining_bytes {
  my $self = shift;
  encode_short($self->message_id)
}

1;

__END__