The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
{ local $opt = {
         'mysql_config' => 'mysql_config',
         'ssl' => 0,
         'testport' => '',
         'testsocket' => '',
         'ldflags' => '',
         'testpassword' => 'root',
         'libs' => '-L/usr/lib/x86_64-linux-gnu -lmariadbclient',
         'nocatchstderr' => 0,
         'testuser' => 'root',
         'nofoundrows' => 0,
         'testhost' => '',
         'cflags' => '-I/usr/include/mysql',
         'embedded' => '',
         'testdb' => 'test'
       };
$::test_host = $opt->{'testhost'};
$::test_port = $opt->{'testport'};
$::test_user = $opt->{'testuser'};
$::test_socket = $opt->{'testsocket'};
$::test_password = $opt->{'testpassword'};
$::test_db = $opt->{'testdb'};
$::test_dsn = "DBI:mysql:$::test_db";
$::test_dsn .= ";mysql_socket=$::test_socket" if $::test_socket;
$::test_dsn .= ":$::test_host" if $::test_host;
$::test_dsn .= ":$::test_port" if $::test_port;
} 1;