Yet Another CPAN Grep

Cogwheel ( S/ST/STYPNOW/Cogwheel-0.03.tar.gz, STYPNOW, 2008; MetaCPAN )

Cogwheel/lab/03_callbacks.t ( view source; MetaCPAN )

my ( $self, $sprocket, $con, $socket ) = @_;
        $con->filter->push(
            POE::Filter::JSON->new( delimiter => 0, allow_nonref => 1 ) );
    };

    after remote_connected => sub {