Yet Another CPAN Grep

Plack-Middleware-SocketIO ( V/VT/VTI/Plack-Middleware-SocketIO-0.00904.tar.gz, VTI, 2011; MetaCPAN )

Plack-Middleware-SocketIO/lib/Plack/Middleware/SocketIO/Base.pm ( view source; MetaCPAN )

package Plack::Middleware::SocketIO::Base;

use strict;
use warnings;

use JSON   ();
use Encode ();
use Try::Tiny;
use Scalar::Util qw(weaken);

use Plack::Request;
use Plack::Middleware::SocketIO::H

Plack-Middleware-SocketIO ( V/VT/VTI/Plack-Middleware-SocketIO-0.00904.tar.gz, VTI, 2011; MetaCPAN )

Plack-Middleware-SocketIO/lib/Plack/Middleware/SocketIO/Connection.pm ( view source; MetaCPAN )

package Plack::Middleware::SocketIO::Connection;

use strict;
use warnings;

use JSON ();
use Try::Tiny;

sub new {
    my $class = shift;

    my $self = {@_};
    bless $self, $class;

    $self->{o

 $self = shift;
    my ($message) = @_;

    if (ref $message) {
        $message = '~j~' . JSON::encode_json($message);
    }

    return '~m~' . length($message) . '~m~' . $message;
}

sub _generate

.*)/) {
                my $json;

                try {
                    $json = JSON::decode_json($1);
                };

                return $json if defined $json;

                return $