package MockCGI;
sub new {
my $class = shift;
my %args = @_;
my $self = \%args;
bless $self, $class;
return $self;
}
sub param { $_[0]->{$_[1]} }
1;
package MockCGI;
sub new {
my $class = shift;
my %args = @_;
my $self = \%args;
bless $self, $class;
return $self;
}
sub param { $_[0]->{$_[1]} }
1;