sub wxDocsUrlTrunkSearch { my( $name ) = @_; my @class = split /::/, $name; my $method = pop @class; my $href = "http://docs.wxwidgets.org/trunk/search.php?query="; my $text = ''; my $classname = lcfirst join '', @class; if( $method =~ /^EVT_/){ $classname = ''; } else { $method = '' if $method =~ /^new/; $method = '::'.$method if length $method; } $text = escapeHTML( $classname.$method ); $method =~ s/:/%3A/g; $href .= $classname.$method; qq{$text}; }