Add support for JSON column in column_info()

michal-josef-spacek · michal-josef-spacek · commit 0dc4cdfbf35f · 2025-04-15T14:11:16.000+02:00
Field storage requirement for JSON column is approximately the same as for a LONGBLOB or LONGTEXT column. It's defined in https://dev.mysql.com/doc/refman/8.4/en/storage-requirements.html#data-types-storage-reqs-json
diff --git a/lib/DBD/mysql.pm b/lib/DBD/mysql.pm
@@ -459,7 +459,7 @@ sub column_info {
 	  my @type_attr= split / /, $attr||'';
 
   	$info->{DATA_TYPE}= SQL_VARCHAR();
-    if ($basetype =~ /^(char|varchar|\w*text|\w*blob)/)
+    if ($basetype =~ /^(char|varchar|\w*text|\w*blob|json)/)
     {
       $info->{DATA_TYPE}= SQL_CHAR() if $basetype eq 'char';
       if ($type_params[0])
@@ -472,6 +472,7 @@ sub column_info {
         $info->{COLUMN_SIZE} = 255        if $basetype =~ /^tiny/;
         $info->{COLUMN_SIZE} = 16777215   if $basetype =~ /^medium/;
         $info->{COLUMN_SIZE} = 4294967295 if $basetype =~ /^long/;
+        $info->{COLUMN_SIZE} = 4294967295 if $basetype =~ /^json/;
       }
     }
 	  elsif ($basetype =~ /^(binary|varbinary)/)

Original file line number	Diff line number	Diff line change
`@@ -459,7 +459,7 @@ sub column_info {`
`459`	`459`	`my @type_attr= split / /, $attr\|\|'';`
`460`	`460`
`461`	`461`	`$info->{DATA_TYPE}= SQL_VARCHAR();`
`462`		`- if ($basetype =~ /^(char\|varchar\|\wtext\|\wblob)/)`
	`462`	`+ if ($basetype =~ /^(char\|varchar\|\wtext\|\wblob\|json)/)`
`463`	`463`	`{`
`464`	`464`	`$info->{DATA_TYPE}= SQL_CHAR() if $basetype eq 'char';`
`465`	`465`	`if ($type_params[0])`
`@@ -472,6 +472,7 @@ sub column_info {`
`472`	`472`	`$info->{COLUMN_SIZE} = 255 if $basetype =~ /^tiny/;`
`473`	`473`	`$info->{COLUMN_SIZE} = 16777215 if $basetype =~ /^medium/;`
`474`	`474`	`$info->{COLUMN_SIZE} = 4294967295 if $basetype =~ /^long/;`
	`475`	`+ $info->{COLUMN_SIZE} = 4294967295 if $basetype =~ /^json/;`
`475`	`476`	`}`
`476`	`477`	`}`
`477`	`478`	`elsif ($basetype =~ /^(binary\|varbinary)/)`