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