my( $text_method, $nav); # actually defined and initialized earlier 
{ no strict 'refs';
  my ${text_method}= sub { my $elt=shift;
                           my $dest= $elt->$nav( @_) or return '';
                           return $dest->text;
                         }
}