sub add_node { my $self = shift; my $node = shift; return $self->{ N }{ $node->id } ||= $node; }