Yet Another CPAN Grep

Wight ( M/MO/MOTEMEN/Wight-0.02.tar.gz, MOTEMEN, 2014; MetaCPAN )

Wight/lib/Wight.pm ( view source; MetaCPAN )

 Plack::Request;

use Protocol::WebSocket::Handshake::Server;
use Protocol::WebSocket::Frame;
use JSON;

use HTML::Selector::XPath ();

use File::Basename qw(dirname);
use File::Spec::Functions qw(cat

buf);
                    while (my $message = $frame->next) {
                        my $data = JSON->new->decode($message);
                        $self->debug('message in:', $data);

(my ($action) = $req->path_info =~ m<^/(confirm|prompt)$>) {
            my $args = eval { decode_json($req->parameters->{args}) } || [];
            my $response = ( $self->{"on_$action"} || sub { re