Re: wxperl_usage / wxperl-usage / wxPerl::Usage / Class Method Browser , available methods, method invocation syntax, link to docs

[Anonymous Monk]

fixup wxDocsUrlTrunk

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>};
}