#!/usr/bin/env perl
use strict;
use warnings;
use AnyEvent::Impl::Perl;
use AE;
use AnyEvent::HTTP::Server;
AnyEvent::HTTP::Server->new(
host => '0.0.0.0',
port => 3000,
pid => '/tmp/wsecho.pid',
request => sub {
my $r = shift;
$r->upgrade(
websocket => sub {
my $ws = shift;
$ws->onmessage(sub { $ws->send(@_) });
}
);
return 1;
}
)->start;
AE::cv->recv;