sub insert_run {
  my $self = shift;
  my $run = shift;

  eval {
    $run->insert;
  };
  if ($@) {
    if ($@ =~ m/ORA-00001: unique constraint/) {
      return 0;
    }
    die $@;
  }
  return 1;
}