Select Code to Download

sub maybe_set_param {
  my ( $self, $param, $default, $value ) = @_;
  $self->session->param( $param => defined $value ? $value : $default 
+);
}

$self->maybe_set_param( page => $post{ page }, 1 );

sub maybe_set_param {
  my ( $self, $param, $default ) = @_;
...
}
# ...
$self->maybe_set_param( page => 1 );

sub maybe_set_param {
  my $self     = shift;
...
    $self->session->param( $param => defined $value ? $value : $defaul
+t );
  }
}

$self->maybe_set_param( page => 1, foo => 15, bar => -1 );