LICENSE-2.0
=cut
package Labkey::Query;
use strict;
use LWP::UserAgent;
use HTTP::Request;
use JSON;
use Data::Dumper;
use FileHandle;
use File::Spec;
use File::HomeDir;
use Carp;
use URI;
use var
k( $response->status_line );
}
my $json_obj = JSON->new->utf8->decode( $response->content )
|| croak("ERROR: Unable to decode JSON.\n$url\n");
return $json_obj;
}
=head1 insertRows()
inser
@_;
my $json_obj = JSON->new->utf8->encode($data);
my $req = new HTTP::Request;
$req->method('POST');
$req->url($url);
$req->content_type('application/json');
$req->content($json_obj);
$req