Yet Another CPAN Grep

jQluster-Server-WebSocket ( T/TO/TOSHIOITO/jQluster-Server-WebSocket-0.03.tar.gz, TOSHIOITO, 2014; MetaCPAN )

jQluster-Server-WebSocket/lib/jQluster/Server/WebSocket.pm ( view source; MetaCPAN )

;
use Plack::App::WebSocket;
use Scalar::Util qw(weaken refaddr);
use Try::Tiny;
use JSON qw(decode_json encode_json);

our $VERSION = "0.03";

sub new {
    my ($class, @args) = @_;
    my $self = $c

e_str) = @_;
            return if !$self;
            try {
                my $message = decode_json($message_str);
                if(!ref($message) || ref($message) ne "HASH") {

> sub {
            my ($send_message) = @_;
            try {
                $conn->send(encode_json($send_message));
            }catch {
                my $e = shift;
                return !$sel