ということで NULLABLEとかtable_infoとかtype_info_allとかget_infoとかか。 →type_info_allはperldoc DBI参照。 →typeをクリアすれば全部行けそうな気がするんだけどもう頭が回らない。

    Test($state  or  ($dbdriver eq 'CSV') or ($dbdriver eq 'ConfFile')
     or ($ref = $cursor->{'NULLABLE'})  &&  @$ref == @table_def
         &&  !($$ref[0] xor ($table_def[0][3] & $COL_NULLABLE))
         &&  !($$ref[1] xor ($table_def[1][3] & $COL_NULLABLE)))
       or DbiError($cursor->err, $cursor->errstr);
    if (!$state && $verbose) {
    print "Nullable:\n";
    for ($i = 0;  $i < @$ref;  $i++) {
        print "    ", ($$ref[$i] & $COL_NULLABLE) ? "yes" : "no", "\n";
    }

このテストが意味は分かるんだけど分かりたくない気分。 →って思ったらCSVこれスルーじゃんか！！！！ちくしょー。騙された。