CPAN::Groonga

 need to do form submission
    # hashrefs are sent as JSON
    my $tx = ref $content eq 'HASH'
        ? $self->ua->build_tx( POST => $url, json => $content )
        : $self->ua->build_tx( POST => $

);

    my $result = $search->query_tree();
    say $result->qtree;

    $result->move_to( 'qtree.json' );

=head1 DESCRIPTION

The QTree class holds the
L<response|https://ui.adsabs.harvard.edu/help/

o::ADS::QTree;
use Astro::ADS::Result;

sub parse_response {
    my ($self, $json) = @_;

    unless ($json && exists $json->{responseHeader}) {
        warn 'No response to parse';
        return;
  

ws fl> } = @{$json->{responseHeader}{params}}{ qw<q rows fl> };
    $result_params->{status} = @{$json->{responseHeader}}{ status };
    @{$result_params}{ qw<numFound start> } = @{$json->{response}}{

numFound start> };
    $result_params->{numFoundExact} = $json->{response}{numFoundExact} ? 1 : 0;

    my @papers;
    for my $paper ( @{$json->{response}->{docs}} ) {
        push @papers, Astro::AD

trict; # do we want -signatures
use Mojo::DOM;
use Mojo::File qw( path );
use Mojo::JSON qw( decode_json encode_json );
use Mojo::URL;
use Mojo::Util qw( quote url_escape );
use PerlX::Maybe;
use Type

 };
        return Astro::ADS::Result->new( {error => $error_obj} );
    }

    return $response->json;
}

sub fetch {
    my ($self, $bibcode) = @_;

    $bibcode ||= $self->bibcode()
        or die 

se_url->clone->path($path);
    my $response = $self->get_response( $url );
    return $response->json;
}

sub batch {
    my ($self, $bibcodes, $options) = @_;
    my $url = $self->base_url->clone->p

urn Astro::ADS::Result->new( {error => $error_obj} );
    }

    my $json = $response->json;
    return $self->parse_response( $json );
}

sub query_tree {
    my ($self, $terms) = @_;

    my $url = 

my $response = $self->post_response( $url, $bibcode_list );

    my $json = $response->json;
    return $self->parse_response( $json );
}

sub gather_search_terms {
    my ($self, $terms) = @_;

    m