Yet Another CPAN Grep

IO-Async-JSONStream ( P/PE/PEVANS/IO-Async-JSONStream-0.02.tar.gz, PEVANS, 2014; MetaCPAN )

IO-Async-JSONStream/lib/IO/Async/JSONStream.pm ( view source; MetaCPAN )

sync::JSONStream;

use strict;
use warnings;

our $VERSION = '0.02';

use base qw( IO::Async::Stream );
IO::Async::Stream->VERSION( '0.57' ); # ->read future

use JSON qw( encode_json decode_json );

IO::Async::JSONStream> - send or receive lines of JSON data in C<IO::Async>

=head1 SYNOPSIS

 use IO::Async::JSONStream;

 use IO::Async::Loop;
 my $loop = IO::Async::Loop->new;

 my $jsonstream = IO

d( $jsonstream );

 $jsonstream->connect(
    host    => "my.server",
    service => 12345,
 )->then( sub {
    $jsonstream->write_json( [ data => { goes => "here" } ] );
    $jsonstream->read_json
 }