The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

AnyEvent::LeapMotion - Perl interface to the Leap Motion Controller (via WebSocket)

SYNOPSIS

    use AnyEvent;
    use AnyEvent::LeapMotion;

    my $leap = AnyEvent::LeapMotion->new(
        enable_gesture => 1,
        on_frame => sub {
            my $frame = shift;

            ...
        },
    );
    $leap->run;

    AE::cv->recv;

DESCRIPTION

AnyEvent::LeapMotion is a simple interface to the Leap Motion controller. It receives tracking data through a WebSocket server.

METHODS

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.

MOTIVATION

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.

SEE ALSO

WebSocket Communication

LICENSE

Copyright (C) Takumi Akiyama.

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

AUTHOR

Takumi Akiyama <t.akiym@gmail.com>