File Coverage

blib/lib/FalkorDB/Path.pm

Criterion	Covered	Total	%
statement	6	26	23.0
branch	0	6	0.0
condition			n/a
subroutine	2	7	28.5
pod	3	5	60.0
total	11	44	25.0

package FalkorDB::Path;

use strict;
use warnings;

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

sub nodes    { shift->{nodes} }
sub edges    { shift->{edges} }
sub elements { shift->{elements} }

sub new_from_string {
    my ( $class, $path_str ) = @_;
    my @nodes;
    my @edges;
    my @elements;

    if ( $path_str =~ /^\[(.*)\]$/ ) {
        my $content = $1;
        while ( $content =~ /(\(\d+\)|\[\d+\])/g ) {
            my $token = $1;
            if ( $token =~ /^\((\d+)\)$/ ) {
                my $node_id = 0 + $1;
                push @nodes, $node_id;
                push @elements, { type => 'node', id => $node_id };
            }
            elsif ( $token =~ /^\[(\d+)\]$/ ) {
                my $edge_id = 0 + $1;
                push @edges, $edge_id;
                push @elements, { type => 'edge', id => $edge_id };
            }
        }
    }

    return $class->new(
        nodes    => \@nodes,
        edges    => \@edges,
        elements => \@elements,
    );
}

1;
__END__