sub getRef { my $self = shift; $_ = $self->getNodeById( $_ ) for grep { $_ and not ref } @_; return ref $_[0]; }