sub cgiapp_prerun {
  # ...
  my $id = $self->query->param('id');
  if (!$id) {
     return $self->prerun_mode('get_id');
  }
  $self->param("object") = $self->get_obj($id);
# ...
}