File Coverage

blib/lib/Data/YADV/Structure/Base.pm

Criterion	Covered	Total	%
statement	34	39	87.1
branch	8	10	80.0
condition	2	2	100.0
subroutine	13	14	92.8
pod	0	9	0.0
total	57	74	77.0

package Data::YADV::Structure::Base;

use strict;
use warnings;

use Data::YADV::Structure;

sub new {
    my ($class, $structure, $path, $parent) = @_;

    bless {
        structure => $structure,
        path      => $path || [],
        parent    => $parent
    }, $class;
}

sub get_structure { $_[0]->{structure} }
sub get_parent { $_[0]->{parent} }
sub get_path { $_[0]->{path} }
sub get_type { lc((split /::/, (ref $_[0]))[-1]) }

sub get_child {
    my ($self, @path) = @_;

    return $self unless @path;

    my $entry = shift @path;

    my $node;
    if ($entry eq '..') {
        $node = $self->get_parent;
    } else {
        $node = $self->_get_child_node($entry);
    }

    $node && $node->get_child(@path);
};

sub get_root {
    my $self = shift;

    my $parent = $self->get_parent;
    return $self unless $parent;
    $parent->get_root;
}

sub get_path_string {
    my ($self, @path) = @_;
    _stringify_path(@{$self->{path}}, @path);
}

sub _build_node {
    my ($self, $path, $value) = @_;

    Data::YADV::Structure->new($value, [@{$self->{path}}, $path], $self);
}

sub _stringify_path {
    join '->', @_;
}

sub die {
    my ($self, $message, $path) = @_;

    my @path = @{$self->{path}};
    push @path, $path if defined $path;

    die _stringify_path('$structure', @path) . ': ' .$message;
}

1;