package LinkNode;

sub new {
    my ($class,$node_name,$node_target,$link_type) = @_;
    my $self = {
        "nodes" => {},
        "type"  => $link_type,
        "name"  => $node_name,
        "target" => $node_target
    };
    bless $self, $class;
    return $self;
}

sub get_child_node_by_name {
    my ($self,$node_name) = @_;
    if (defined($self->{"nodes"}{$node_name})) {
        return $self->{"nodes"}{$node_name};
    }
    return undef;
}

sub display_tree {
    my ($self,$prefix) = @_;
    print($prefix." ".$self->{"name"}." -> ".$self->{"target"}."\n");
}

1;