AnyEvent::LeapMotion - Perl interface to the Leap Motion Controller (via WebSocket)
use AnyEvent;
use AnyEvent::LeapMotion;
my $leap = AnyEvent::LeapMotion->new(
enable_gesture => 1,
on_frame => sub {
my $frame = shift;
...
},
);
$leap->run;
AE::cv->recv;
AnyEvent::LeapMotion is a simple interface to the Leap Motion controller. It receives tracking data through a WebSocket server.
-
my $leap = AnyEvent::LeapMotion->new()Create an instance of AnyEvent::LeapMotion.
- on_frame : Sub
- on_error : Sub
- host => '127.0.0.1' : Str
- port => 6437 : Num
- enable_gesture => 0 : Bool
-
$leap->run()Running an event loop.
There is Device::Leap module on CPAN, but it is difficult to use and cannot get the gesture. So I made a module with simple interface.
Copyright (C) Takumi Akiyama.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
Takumi Akiyama t.akiym@gmail.com