CPAN::Groonga

that folder for this to work though.

=cut

package LabKey::Query;

use warnings;
use strict;
use JSON;
use Data::Dumper;
use FileHandle;
use File::Spec;
use File::HomeDir;
use Carp;


# Force all SSL

x{debug};

	my $json_obj = JSON->new->utf8->encode($data);

	my $req = POST $url;
	$req->content_length(length($json_obj));
	$req->content_type('application/json');
	$req->content($json_obj);
	$req->a

oded_content);
	}

	my $response_json = JSON->new->utf8->decode( $response->content )
	  || croak("ERROR: Unable to decode JSON.\n$url\n");
	  
  	return $response_json;
}

sub _createUserAgent {
	my