CPAN::Groonga

package MPV::Simple::JSON;

use strict;
use warnings;
use IO::Handle;
use IO::Socket::UNIX;
use JSON;
use File::Temp qw(tempdir);


require Exporter;

our @ISA = qw(Exporter);

# Items to export into 

    };
    my $json =to_json($hash);
    my  $client = $obj->{client};
    print $client $json."\n";
    
    my $reader = $obj->{reader};
    my $ret = <$reader>;
    $ret = from_json($ret);
    ret

    };
    my $json =to_json($hash);
    my  $client = $obj->{client};
    print $client $json."\n";
    
    my $reader = $obj->{reader};
    my $ret = <$reader>;
    $ret = from_json($ret);
    ret

 (especially if coexisting loops are not possible) 
    # would be using a timer, see MPV::Simple:JSON for an example
    loop($int);
    
    sub loop {
        my $int = shift;
        while ($int->