sub wxDocsUrlTrunk {
    my( $name ) = @_;
    my @class = split /::/, $name;
    my $classmethod = lc join '_', @class;
    my $method = pop @class;
    my $classname = lcfirst join '', @class;
    $classname =~ s/([A-Z])/_\l$1/g;
    my $href = "http://docs.wxwidgets.org/trunk/class$classname.html";
    $classname = lcfirst join '', @class;
    qq{<a href="$href">${classname}::$method</a>};
}