File Coverage

blib/lib/Device/USB/MissileLauncher/RocketBaby.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Device::USB::MissileLauncher::RocketBaby;
use strict;
use warnings;
use Device::USB;

our $VERSION = '1.01';

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

    my $usb = Device::USB->new;
    my $dev = $usb->find_device(0xA81, 0x701);
    $dev->open;
    $dev->detach_kernel_driver_np(0);
    $dev->set_configuration(1);
    $dev->claim_interface(0);

    bless { dev => $dev }, $class;
}

sub _send
{
    my ($self, $val) = @_;
    $self->{dev}->control_msg(0x21, 0x09, 0x02, 0, chr($val), 1, 1000);
}

sub _stat
{
    my ($self) = @_;
    $self->_send(0x40);
    $self->{dev}->bulk_read(1, my $buf = "\0", 1, 1000);
    ord($buf);
}

sub _cando
{
    my ($self, $val) = @_;
    not $self->_stat & $val;
}

my %VAL = (
    down  => 0x01,
    up    => 0x02,
    left  => 0x04,
    right => 0x08,
    fire  => 0x10,
    stop  => 0x20,
);

sub _val { $VAL{$_[1]} }

sub cando
{
    my ($self, $cmd) = @_;
    my $val = $self->_val($cmd) or return;
    $self->_cando($val);
}

sub do
{
    my ($self, $cmd) = @_;
    my $val = $self->_val($cmd) or return -1;
    $self->_send($val);
}

1;

__END__