# Deserialisierung, Rückgewinnung der Datenstruktur # für den wahlfreien Zugriff: Schlüssel-Werte-Paare $self->param; my $in = $self->{CGI}{param}; my $code = delete $in->{code}; eval $code or die "Error Compile Code: $@\n"; my $methodname = delete $in->{methodname}; my $coderef = $self->can($methodname) or die "Unknown methodname '$methodname'\n"; # Mit in %$in verbleibenden Parametern # wird die namentlich übergebene Methode aufgerufen $self->{CONTENT} = $self->$coderef(%$in) || die "the return value is emty";