sub getRef { my $this = shift @_; for (my $i = 0; $i < @_; $i++) { unless (ref ($_[$i])) { $_[$i] = $this->getNodeById($_[$i]) if($_[$i]); } } ref $_[0]; }