o::Tango::Database;
use Arango::Tango::Collection;
use strict;
use warnings;
use HTTP::Tiny;
use JSON;
use MIME::Base64 3.11 'encode_base64url';
use URI::Encode qw(uri_encode);
BEGIN {
Arango::Tang
;
$self->{headers} = {
Authorization => $self->_auth,
Accept => 'application/json',
};
$self->{http} = HTTP::Tiny->new(default_headers => $self->{headers});
return $s
=head1 CAVEATS
=head2 Options Validation
Most optional options are validated and fitted using
C<JSON::Scheme::Fit>. This means that the module will try to remove
invalid options and adapt values fro
use strict;
use warnings;
use HTTP::Tiny;
use JSON;
use Clone 'clone';
use MIME::Base64 3.11 'encode_base64url';
use URI::Encode qw(uri_encode);
use JSON::Schema::Fit 0.07;
use Sub::Install qw(insta
type => 'object', additionalProperties => 0, properties => $properties };
my $prepared_data = JSON::Schema::Fit->new(replace_invalid_values => 1)->get_adjusted($params, $schema);
return $prepa
arameters = join("&", map {
my $val = $url_opts->{$_};
if (ref($val) eq "JSON::PP::Boolean") {
$val = $val ? "yes" : "no"
}
"$_=$val" }