check_tables_exists_pg_and_my.pl

sub __check_table_exists {
  state $byDbType = {
    'postgresql' => {
      'schema'  => 'current_schema',
      'catalog' => 'current_catalog',
    },
    'mysql'     => {
      'schema'  => 'database()',
    },
  };
  my ($dbh, $tableName) = @_;
  my $dbType = lc $dbh->get_info(SQL_DBMS_NAME);
  $dbh->selectall_arrayref(sprintf <<'EOSQL', $tableName, $byDbType->{$dbType}{'schema'}, exists($byDbType->{$dbType}{'catalog'}) ? 'AND table_catalog=' . $byDbType->{$dbType}{'catalog'} : '')->[0][0];
SELECT COUNT(1)
FROM information_schema.tables
WHERE
  table_name='%s'
    AND
  table_schema=%s
  %s
EOSQL
}