File Coverage

blib/lib/FalkorDB/Node.pm

Criterion	Covered	Total	%
statement	6	22	27.2
branch	0	6	0.0
condition	0	4	0.0
subroutine	2	8	25.0
pod	4	6	66.6
total	12	46	26.0

package FalkorDB::Node;

use strict;
use warnings;

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

sub id         { shift->{id} }
sub labels     { shift->{labels} }
sub properties { shift->{properties} }

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

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

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

    return $class->new(
        id         => $id,
        labels     => $labels     || [],
        properties => $properties || {},
    );
}

1;
__END__