gistfile1.pl

sub _is_text_type {
  my ($self, $data_type) = @_;
  return $self->result_source->storage->_is_text_lob_type($data_type)
    || $data_type =~ /(?:long\s+)?(?:var)?char(?:acter)?(?:\(max\))?|(?:long\s+)?char(?:acter)?\s+varying|(?:tiny|medium|long|uni|n)?text|(?:long\s+)?n(?:var)?char(?:\(max\))?|lvarchar|string|national character(?:\s+varying)?|uni(?:var)?char|xml/i;
}