File Coverage

blib/lib/Device/MindWave/Packet/ThinkGear/DataValue/PoorSignal.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	2	2	100.0
condition			n/a
subroutine	9	9	100.0
pod	5	5	100.0
total	39	39	100.0

package Device::MindWave::Packet::ThinkGear::DataValue::PoorSignal;

use strict;
use warnings;

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

use base qw(Device::MindWave::Packet::ThinkGear::DataValue);

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

    my $self = { value => $bytes->[$index + 1] };
    bless $self, $class;
    return $self;
}

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

    return [ 0x02, $self->{'value'} ];
}

sub length
{
    return 2;
}

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

    return "Poor signal (".$self->{'value'}."/200)".
           (($self->{'value'} == 200) ? " (no signal found)" : "");
}

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

    return { PoorSignal => $self->{'value'} };
}

1;

__END__