Changeset 97

Timestamp:

05/04/06 00:07:50 (4 years ago)

Author:

sky

Message:

r100@crucially-3 (orig r1083): mpaschal | 2006-01-11 11:43:39 -0800
Allow extra DBI->connect options with Driver->new( connect_options => {} )
Add missing ) in synopsis found while looking for a place to document connect_options (which there isn't)

Location:

trunk/lib/Data

Files:

• ObjectDriver.pm (modified) (1 diff)
• ObjectDriver/Driver/DBI.pm (modified) (2 diffs)

trunk/lib/Data/ObjectDriver.pm

@@ -54 +54 @@
             username => 'username',
             password => 'password',
+        )
     }
 

trunk/lib/Data/ObjectDriver/Driver/DBI.pm

@@ -10 +10 @@
 use Data::ObjectDriver::Driver::DBD;
 
-__PACKAGE__->mk_accessors(qw( dsn username password dbh get_dbh dbd ));
+__PACKAGE__->mk_accessors(qw( dsn username password connect_options dbh get_dbh dbd ));
 
 sub init {
@@ -48 +48 @@
         local $SIG{ALRM} = sub { die "alarm\n" };
         $dbh = DBI->connect($driver->dsn, $driver->username, $driver->password,
-            { RaiseError => 1, PrintError => 0, AutoCommit => 1 })
+            { RaiseError => 1, PrintError => 0, AutoCommit => 1,
+              %{$driver->connect_options || {}} })
             or Carp::croak("Connection error: " . $DBI::errstr);
         alarm 0;