CPAN::Groonga

::CLI;
use strict;
use warnings;
use Duadua;
use Getopt::Long qw/GetOptionsFromArray/;
use JSON qw/encode_json/;

sub new {
    my $class = shift;

    return bless {
        _d   => Duadua->new('', {

 }

    if (scalar @results == 0) {
        _show_usage(1);
    }
    else {
        print encode_json(scalar @results == 1 ? $results[0] : \@results);
    }
}

sub _is_opened_stdin { -p STDIN }

sub