File Coverage

blib/lib/Device/MindWave/Utils.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch			n/a
condition	3	3	100.0
subroutine	8	8	100.0
pod	3	3	100.0
total	42	42	100.0

package Device::MindWave::Utils;

use strict;
use warnings;

use List::Util qw(sum);
use Scalar::Util qw(blessed);

use base qw(Exporter);
our @EXPORT_OK = qw(checksum
                    packet_isa
                    packet_to_bytes);

sub checksum
{
    my ($bytes) = @_;

    my $sum = sum(0, @{$bytes});
    my $byte = $sum & 0xFF;
    return ((~$byte) & 0xFF);
}

sub packet_isa
{
    my ($packet, $suffix) = @_;

    return
        ((blessed $packet)
            and ($packet->isa('Device::MindWave::Packet::'.$suffix)));
}

sub packet_to_bytes
{
    my ($packet) = @_;

    my $bytes = $packet->as_bytes();
    my $checksum = checksum($bytes);

    return [ 0xAA, 0xAA, scalar @{$bytes}, @{$bytes}, $checksum ];
}

1;

__END__