Select Code to Download

($scheme, $driver, $attr_string, $attr_hash, $driver_dsn) = DBI->parse
+_dsn("DBI:MyDriver(RaiseError=>1):db=test;port=42");
$scheme      = 'dbi';
...
$attr_string = 'RaiseError=>1';
$attr_hash   = { 'RaiseError' => '1' };
$driver_dsn  = 'db=test;port=42';

C:\>perl -MDBI -MData::Dumper -e "print qq[$DBI::VERSION\n],Dumper([DB
+I->parse_dsn('DBI:foo:bar')])"
1.607
...
Internet, point your browser at http://www.perl.org/, the Perl Home Pa
+ge.

C:\>

> perl -MDBI -MData::Dumper -e 'print "$DBI::VERSION\n",Dumper([DBI->p
+arse_dsn("DBI:foo:bar")])'
1.616
...
Internet, point your browser at http://www.perl.org/, the Perl Home Pa
+ge.

>