Queries index.
=cut
sub query {
my ($self, $query) = @_;
my $url = $self->url . '/select?wt=json&'.$query;
my $response = $self->agent->get($url);
print $url."\n\r---------------\n\r";
return
nse = $self->raw_response;
if ($http_response->code == 400) {
# look at deserialized JSON
my $content = $self->content;
if (exists $content->{error}->{msg}) {