File Coverage

blib/lib/ArangoDB2/Traversal.pm

Criterion	Covered	Total	%
statement	15	35	42.8
branch	0	2	0.0
condition	0	3	0.0
subroutine	5	22	22.7
pod	17	17	100.0
total	37	79	46.8

package ArangoDB2::Traversal;

use strict;
use warnings;

use base qw(
    ArangoDB2::Base
);

use Data::Dumper;
use JSON::XS;

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

my @PARAMS = qw(
    direction edgeCollection expander filter graphName init itemOrder maxDepth
    maxIterations minDepth order sort startVertex strategy uniqueness visitor
);

# direction
#
# get/ set direction
sub direction { shift->_get_set('direction', @_) }

# edgeCollection
#
# get/ set edgeCollection
sub edgeCollection { shift->_get_set('edgeCollection', @_) }

# execute
#
# POST /_api/traversal
sub execute
{
    my($self, $args) = @_;
    # process request args
    $args = $self->_build_args($args, \@PARAMS);
    # if neither edgeCollection or graphName is set then
    # use the current graph name
    $args->{graphName} = $self->graph->name
        unless defined $args->{graphName}
        or defined $args->{edgeCollection};
    # make request
    return $self->arango->http->post(
        $self->api_path('traversal'),
        undef,
        $JSON->encode($args),
    );
}

# expander
#
# get/ set expander
sub expander { shift->_get_set('expander', @_) }

# filter
#
# get/ set filter
sub filter { shift->_get_set('filter', @_) }

# graphName
#
# get/ set graphName
sub graphName { shift->_get_set('graphName', @_) }

# init
#
# get/ set init
sub init { shift->_get_set('init', @_) }

# itemOrder
#
# get/ set itemOrder
sub itemOrder { shift->_get_set('itemOrder', @_) }

# maxDepth
#
# get/ set maxDepth
sub maxDepth { shift->_get_set('maxDepth', @_) }

# maxIterations
#
# get/ set maxIterations
sub maxIterations { shift->_get_set('maxIterations', @_) }

# minDepth
#
# get/ set minDepth
sub minDepth { shift->_get_set('minDepth', @_) }

# order
#
# get/ set order
sub order { shift->_get_set('order', @_) }

# sort
#
# get/ set sort
sub sort { shift->_get_set('sort', @_) }

# startVertex
#
# get/ set startVertex
sub startVertex { shift->_get_set_id('startVertex', @_) }

# strategy
#
# get/ set strategy
sub strategy { shift->_get_set('strategy', @_) }

# uniqueness
#
# get/ set uniqueness
sub uniqueness { shift->_get_set('uniqueness', @_) }

# visitor
#
# get/ set visitor
sub visitor { shift->_get_set('visitor', @_) }

1;

__END__