File Coverage

blib/lib/Device/MindWave/Tester.pm

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

package Device::MindWave::Tester;

use strict;
use warnings;

use IO::File;
use Device::MindWave::Utils qw(packet_to_bytes);

sub new
{
    my $class = shift;
    my $self = { buffer      => IO::File->new_tmpfile(),
                 read_index  => 0,
                 write_index => 0 };
    bless $self, $class;
    return $self;
}

sub push_packet
{
    my ($self, $packet) = @_;

    return $self->push_bytes(packet_to_bytes($packet));
}

sub push_bytes
{
    my ($self, $bytes) = @_;

    $self->{'buffer'}->seek($self->{'write_index'}, 0);
    for my $byte (@{$bytes}) {
        $self->{'buffer'}->syswrite(chr $byte);
        $self->{'write_index'}++;
    }
    $self->{'buffer'}->flush();

    return 1;
}

sub read
{
    my $self = $_[0];

    $self->{'buffer'}->seek($self->{'read_index'}, 0);
    my $bytes = $self->{'buffer'}->read($_[1], $_[2], 0);
    $self->{'read_index'} += $bytes;
    return $bytes;
}

sub write
{
    return 1;
}

1;

__END__