my ($class, $species_defs) = @_;
  my $caller = caller;
  my $dsn = join(':',
    'dbi',
    'mysql',
    $species_defs->multidb->{'DATABASE_HEALTHCHECK'}{'NAME'},
    $species_defs->multidb->{'DATABASE_HEALTHCHECK'}{'HOST'},
    $species_defs->multidb->{'DATABASE_HEALTHCHECK'}{'PORT'},
  );
  $caller->connection(
    $dsn,
    $species_defs->DATABASE_WRITE_USER,
    $species_defs->DATABASE_WRITE_PASS,
    {
      RaiseError => 1,
      PrintError => 1,
      AutoCommit => 1,
    }
  ) || die "Can not connect to $dsn";

  $caller->cache($cache)
    if $cache;
}

1;