my $value = $r->params->{$param};
next unless (defined $value);
$this_class_params->{$param} = ( $value eq '' ) ? undef : $value;
my $value = $r->params->{$param};
next unless (defined $value);
$this_class_params->{$param} = ( $value eq '' ) ? undef : $value;