File Coverage

blib/lib/ArangoDB/Edge.pm

Criterion	Covered	Total	%
statement	21	30	70.0
branch	0	2	0.0
condition	0	5	0.0
subroutine	7	11	63.6
pod	2	2	100.0
total	30	50	60.0

package ArangoDB::Edge;
use strict;
use warnings;
use utf8;
use 5.008001;
use Carp qw(croak);
use parent 'ArangoDB::AbstractDocument';
use ArangoDB::Constants qw(:api);

sub from {
    return $_[0]->{_from};
}

sub to {
    return $_[0]->{_to};
}

sub _api_path {
    my $self = shift;
    return API_EDGE . '/' . $self;
}

# Handling server error
sub _server_error_handler {
    my ( $self, $error, $action ) = @_;
    my $msg = sprintf( 'Failed to %s the edge(%s)', $action, $self );
    if ( ref($error) && $error->isa('ArangoDB::ServerException') ) {
        $msg .= ':' . ( $error->detail->{errorMessage} || q{} );
    }
    croak $msg;
}

1;
__END__