CPAN::Groonga

rbose',
        handler=>sub {$opts->{verbose}=1},
    },
    json    => {
        getopt=>'json',
        handler=>sub {$opts->{fmt}='json-pretty'},
    },
};

sub _help_cmd {
    require Perinci::Cm

name},
        meta         => $args{meta},
        common_opts  => $common_opts,
        per_arg_json => 1,
    );
    print $res->[2];
}

sub _run_cmd {
    require Perinci::Result::Format;
    requ

argv},
            meta => $args{meta},
            check_required_args => 0,
            per_arg_json => 1,
            common_opts => $common_opts,
        );
        if ($res->[0] == 501) {
       

tr*'],
        pos        => 0,
        completion => $complete_path,
    },
);

my @drivers = qw(json yaml org);

$SPEC{loadorg} = {
    v => 1.1,
    summary => 'Load Org document',
    description