{ local $opt = { 'testhost' => '127.0.0.1', 'testpassword' => 'jwi', 'ssl' => 0, 'testuser' => 'jwi', 'nocatchstderr' => 0, 'libs' => '-L/usr/lib/mysql -lmysqlclient -lz -lcrypt -lnsl -lm', 'cflags' => '-I\'/usr/include/mysql\'', 'testdb' => 'test' }; $::test_host = $opt->{'testhost'}; $::test_port = $opt->{'testport'}; $::test_user = $opt->{'testuser'}; $::test_password = $opt->{'testpassword'}; $::test_db = $opt->{'testdb'}; $::test_dsn = "DBI:mysql:$::test_db"; $::test_dsn .= ":$::test_host" if $::test_host; $::test_dsn .= ":$::test_port" if $::test_port; } 1;