File Coverage

blib/lib/Device/MindWave/Packet/Dongle/HeadsetDisconnected.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch			n/a
condition			n/a
subroutine	9	9	100.0
pod	5	5	100.0
total	36	36	100.0

package Device::MindWave::Packet::Dongle::HeadsetDisconnected;

use strict;
use warnings;

use Device::MindWave::Utils qw(checksum);

use base qw(Device::MindWave::Packet::Dongle);

sub new
{
    my ($class, $bytes, $index) = @_;

    my $self = { headset_upper => $bytes->[$index + 2],
                 headset_lower => $bytes->[$index + 3] };
    bless $self, $class;
    return $self;
}

sub code
{
    return 0xD2;
}

sub as_bytes
{
    my ($self) = @_;

    return [ 0xD2, 0x02,
             $self->{'headset_upper'},
             $self->{'headset_lower'} ];
}

sub length
{
    return 4;
}

sub as_string
{
    my ($self) = @_;

    return sprintf "Headset (%X%X) disconnected",
                   $self->{'headset_upper'},
                   $self->{'headset_lower'};
}

1;

__END__