{ local $opt = { 'testpassword' => '', 'testhost' => '', 'nofoundrows' => 0, 'ssl' => 0, 'testuser' => '', 'nocatchstderr' => 0, 'libs' => '-L/usr/local/mysql/lib -lmysqlclient -lz -lgz', 'cflags' => '-I/usr/local/mysql/include', '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;