my $escapedname=$query->escape($nodeloc); my $cpantitle= $title || $nodeloc; my $mode=$VARS->{cpan_link_opts} || 'mode=module'; return qq[<a href="http://search.cpan.org/search?$mode&query=$escapedname">$cpantitle</a>];