CPAN::Groonga

/ 'json';

    croak 'Stray options passed' if scalar keys %opts;

    $store->in_transaction(rw => sub {
            if ($format eq 'json') {
                require JSON;
                my $json = 

         local $/ = undef;
                    JSON::decode_json(<$handle>);
                }->{files};
                foreach my $dbname (keys %{$json}) {
                    my $file = $store->que

ry(dbname => $dbname);
                    my $d = $json->{$dbname};
                    $d = {
                        properties  => $d->{properties} // {},
                        digests     => $d