sub add_node { my $self = shift; my $node = shift; return if is_duplicate( $node ); # do nothing for dups # proceed to add node to the set of nodes for this tree }