my $q = Apache::Request->new(shift);
        my $table = $q->parms;
        $table->clear;

##</code><code>##

package CGIRequest;
use base Apache::Request;

sub new
{
    my $class = shift;
    return bless Apache::Request->new(@_), $class;
}

sub delete_all
{
    my $self = shift;
    $self->parms()->clear();
}

# ...etc

1;