package StrangeCGI;

# completely untested!

use strict;
use warnings;
use parent 'CGI';

sub multi_param
{
    my ($sself,@args)=@_;
    if ($self->request_method() ne 'POST') {
        return;
    } else {
        return $self->SUPER::multi_param(@args);
    }
}

sub param
{
    my ($sself,@args)=@_;
    if ($self->request_method() ne 'POST') {
        return;
    } else {
        return $self->SUPER::param(@args);
    }
}

1;