Device::USB::MissileLauncher::RocketBaby - interface to toy missile launchers from Dream Cheeky

  use Device::USB::MissileLauncher::RocketBaby;
  my $ml = Device::USB::MissileLauncher::RocketBaby->new;
  while (<>) {
      /j/ && $ml->do("down");
      /k/ && $ml->do("up");
      /h/ && $ml->do("left");
      /l/ && $ml->do("right");
      /f/ && $ml->do("fire");
      /s/ && $ml->do("stop");
  }

This provides a basic interface to the toy USB missile launchers produced by Dream Cheeky. The device name of USB protocol is "Rocket Baby Rocket Baby".

new ()

Creates an instance.

do ( STRING )

send command string to the launcher. commands are following:

  left
  right
  up
  down
  fire
  stop

cando ( STRING )

returns whether the command is executable.

cando("fire") returns false at only moment of launching. You can launch rockets one by one like this:

  use Time::Hires qw( sleep );

  sub fire1
  {
      my $ml = shift;
      if ($ml->cando("fire")) {
          $ml->do('fire');
          eval {
              local $SIG{ALRM} = sub { die "alarm" };
              alarm 5;
              while ($ml->cando("fire")) {
                  sleep 0.15;
              }
              sleep 0.5;
              alarm 0;
          }
          $ml->do("stop");
      }
  }

You might have to adjust sleep figures.

Device::USB::MissileLauncher

http://www.dreamcheeky.com/product/missile-launcher.php

Abe Masahiro, <pen@thcomp.org>

Copyright (C) 2007 by Abe Masahiro

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.8 or, at your option, any later version of Perl 5 you may have available.