$r->{params}{$self->primary_columns} = &some_value;

$h = CGI::Untaint->new(%{$r->{params}});

$obj = $self->create_from_cgi($h);