NAME

Device::USB::TranceVibrator - interface to toy Trance Vibrator

SYNOPSIS

use Device::USB::TranceVibrator;

my $vibe = Device::USB::TranceVibrator->new;
$vibe->vibrate(speed => 100);
sleep 10;
$vibe->vibrate(speed => 200);
sleep 10;
$vibe->stop;

DESCRIPTION

Device::USB::TranceVibrator provides interface to toy "Trance Vibrator".

"Trance Vibrator" is USB device which included with Rez's special package. Rez is a video game for Dreamcast and PlayStation 2 and Xbox 360. for more details on Rez, see trailing links.

METHODS

new

$vibe = Device::USB::TranceVibrator->new( %option );

This method constructs a new "Device::USB::TranceVibrator" instance and returns it. %option is following:

KEY       VALUE
---------------------------------------------------
vendor    device's vendor code.  default is 0x0B49
product   device's product code. default is 0x064F

vibrate

$vibe->vibrate( speed => 255 );

do vibrate. speed must be between 1 and 255.

255 is maximum vibration and 1 is stop vibration.

stop

$vibe->stop;

stop vibration.

SUPPORTED PLATFORM

I checked on these environment:

- Mac OS X, libusb
- Linux 2.6, libusb
- Windows XP, libusb-win32, on cygwin

SEE ALSO

Device::USB, http://libusb.wiki.sourceforge.net/, http://libusb-win32.sourceforge.net/, http://en.wikipedia.org/wiki/Rez#Trance_Vibrator, http://wiki.opendildonics.org/index.php?title=Rez_TranceVibrator

AUTHOR

HIROSE Masaaki, <hirose31@gmail.com>

BUGS

Please report any bugs or feature requests to bug-device-usb-trancevibrator@rt.cpan.org, or through the web interface at http://rt.cpan.org. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

COPYRIGHT & LICENSE

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.