sub maybe_set_param {
  my ( $self, $param, $default ) = @_;
  my $value = $self->post->{ $param };
  $self->session->param( $param => defined $value ? $value : $default );
}
# ...
$self->maybe_set_param( page => 1 );