Pass a hashref of attributes that need special care as the last parameter to bulk_insert of the dbd

Author: charsbar

lib/Data/ObjectDriver/Driver/DBI.pm

@@ -644,7 +644,15 @@ sub bulk_insert {
     my $tbl  = $driver->table_for($class);
     my @db_cols =  map {$dbd->db_column_name($tbl, $_) } @{$cols};
 
-    return $dbd->bulk_insert($dbh, $tbl, \@db_cols, $data);
+    my %attrs;
+    my $col_defs = $class->properties->{column_defs};
+    for my $col (@$cols) {
+        my $type = $col_defs->{$col} || 'char';
+        my $attr = $dbd->bind_param_attributes($type) or next;
+        $attrs{$col} = $attr;
+    }
+
+    return $dbd->bulk_insert($dbh, $tbl, \@db_cols, $data, \%attrs);
 }
 
 sub begin_work {