Weißt was, ich schreibe Dir einfach mal, was ich verwende:
use xCGI;
my $main = bless{
CGI => xCGI->new()
}, 'main';
# Delegiere die gleichnamige Methode
sub param{
my $self = shift;
return $self->{CGI}->param(@_);
}
# das wird damit möglich
$main->param('foo');
Das Beispiel bleibt ja dasselbe. Nur in der Praxis kann mein xCGI Enctypes parsen die CGI.pm nicht kennt und demzufolge hat param() auch entspechende Rückgabewerte.
Das gibt das Beispiel nicht her aber das ist auch nicht die Zweckbestimmung des Beispiels.
MfG