Yet Another CPAN Grep

AnyEvent-LeapMotion ( A/AK/AKIYM/AnyEvent-LeapMotion-0.01.tar.gz, AKIYM, 2014; MetaCPAN )

AnyEvent-LeapMotion/lib/AnyEvent/LeapMotion.pm ( view source; MetaCPAN )

otion;
use 5.008005;
use strict;
use warnings;
use AnyEvent::Handle;
use AnyEvent::Socket ();
use JSON ();
use Protocol::WebSocket;
use Protocol::WebSocket::Frame;
use Protocol::WebSocket::Handshake::

         if (my $message = $self->{frame}->next_bytes) {
                        my $data = JSON::decode_json($message);
                        if (exists $data->{id} && exists $data->{timestamp}) {

         });
        });
    };
}

sub send {
    my ($self, $data) = @_;
    my $message = JSON::encode_json($data);
    my $frame = Protocol::WebSocket::Frame->new($message);
    $self->{handle}->pu