Add bind_param_attributes to ::DBD::MariaDB

Author: charsbar

lib/Data/ObjectDriver/Driver/DBD/MariaDB.pm

@@ -7,4 +7,16 @@ use base qw( Data::ObjectDriver::Driver::DBD::mysql );
 
 sub fetch_id { $_[3]->{mariadb_insertid} || $_[3]->{insertid} }
 
+sub bind_param_attributes {
+    my ($dbd, $data_type) = @_;
+    if ($data_type) {
+        if ($data_type eq 'blob') {
+            return DBI::SQL_BINARY;
+        } elsif ($data_type eq 'binchar') {
+            return DBI::SQL_BINARY;
+        }
+    }
+    return;
+}
+
 1;