view release on metacpan or  search on metacpan

lib/DBIx/Wizard/DB.pm  view on Meta::CPAN

  }

  if (!$h_dsn{$db}) {
    croak "DBIW: undeclared db: $db (set DBIW_DECLARE_" . uc($db) . " or call DBIx::Wizard::DB->declare)";
  }

  if ($h_dbh{$db}) {
    return $h_dbh{$db};
  }

  my $mysql_enable_utf8_after_connect = delete $h_options{$db}{mysql_enable_utf8_after_connect};

  my $dbh = DBI->connect($h_dsn{$db}, $h_user{$db}, $h_password{$db}, $h_options{$db});

  if ($mysql_enable_utf8_after_connect) {
    $dbh->{mysql_enable_utf8} = 1;
  }

  $h_dbh{$db} = $dbh;

  return $dbh;
}

sub dbname {
  my ($class, $db) = @_;