CPAN::Groonga

use 5.010;
use strict;
use warnings;
use Carp 'croak';
use Hailo;
use JSON;
use LWP::UserAgent;
use POE qw(Wheel::Run Filter::JSON);
use Try::Tiny;

sub spawn {
    my ($package, %args) = @_;

    cro

t => '_child_stdout',
        StderrEvent => '_child_stderr',
        StdioFilter => POE::Filter::JSON->new,
        ( $^O eq 'MSWin32' ? ( CloseOnCall => 0 ) : ( CloseOnCall => 1 ) ),
    );

    $ke

N;
        binmode STDOUT;
    }

    my $raw;
    my $size = 4096;
    my $filter = POE::Filter::JSON->new;

    while (sysread STDIN, $raw, $size) {
        my $requests = $filter->get([$raw]);