File Coverage

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

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	5	5	100.0
total	31	31	100.0

package Device::MindWave::Packet::Dongle::RequestDenied;

use strict;
use warnings;

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

sub new
{
    my ($class) = @_;
    my $self = {};
    bless $self, $class;
    return $self;
}

sub code
{
    return 0xD3;
}

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

    return [ 0xD3, 0x00 ];
}

sub length
{
    return 2;
}

sub as_string
{
    return "Request denied";
}

1;

__END__