view release on metacpan or  search on metacpan

lib/ArangoDB2/Admin.pm  view on Meta::CPAN

package ArangoDB2::Admin;

use strict;
use warnings;

use base qw(
    ArangoDB2::Base
);

use JSON::XS;

my $JSON = JSON::XS->new->utf8;



###############
# API METHODS #
###############

# echo
#
# GET /_admin/echo
sub echo
{
    my($self) = @_;
    # make request
    return $self->arango->http->get('/_admin/echo');
}

# execute
#
# POST /_admin/execute
sub execute
{
    my($self, $args) = @_;
    # process args
    $args = $self->_build_args($args, ['program','returnAsJSON']);
    my $program = delete $args->{program};
    # make request
    return $self->arango->http->post(
        '/_admin/execute',
        $args,
        $program,
    );
}

# log
#
# GET /_admin/log
sub log
{
    my($self, $args) = @_;
    # process args
    $args = $self->_build_args($args, [qw(
        upto level start size offset search sort
    )]);
    # make request
    return $self->arango->http->get('/_admin/log', $args);
}

# routingReload
#
# POST /_admin/routing/reload
sub routingReload
{
    my($self) = @_;
    # make request
    return $self->arango->http->post('/_admin/routing/reload');
}

# serverRole
#