File Coverage

blib/lib/FalkorDB/Edge.pm

Criterion	Covered	Total	%
statement	6	26	23.0
branch	0	10	0.0
condition	0	2	0.0
subroutine	2	10	20.0
pod	6	8	75.0
total	14	56	25.0

package FalkorDB::Edge;

use strict;
use warnings;

sub new {
    my ( $class, %args ) = @_;
    return bless \%args, $class;
}

sub id         { shift->{id} }
sub type       { shift->{type} }
sub src_node   { shift->{src_node} }
sub dest_node  { shift->{dest_node} }
sub properties { shift->{properties} }

sub property {
    my ( $self, $key ) = @_;
    return $self->{properties}->{$key};
}

sub new_from_resp {
    my ( $class, $resp ) = @_;
    my ( $id, $type, $src_node, $dest_node, $properties );

    for my $pair (@$resp) {
        my ( $k, $v ) = @$pair;
        if ( $k eq 'id' ) {
            $id = $v;
        }
        elsif ( $k eq 'type' ) {
            $type = $v;
        }
        elsif ( $k eq 'src_node' ) {
            $src_node = $v;
        }
        elsif ( $k eq 'dest_node' ) {
            $dest_node = $v;
        }
        elsif ( $k eq 'properties' ) {
            $properties = FalkorDB::QueryResult::_parse_properties($v);
        }
    }

    return $class->new(
        id         => $id,
        type       => $type,
        src_node   => $src_node,
        dest_node  => $dest_node,
        properties => $properties || {},
    );
}

1;
__END__