my $node = $self->makeMyNode('Blorp') $self->addMyNode($node); ... sub addMyNode { my ($self,$node) = @_; my $parentNode = $self->generateParentNode($node); $parentNode->addChild($node); }