}
}
-has sizeless_types => (
- is => 'lazy',
-);
-
sub _build_sizeless_types { +{ text => 1 } }
sub _build_numeric_types { +{ int => 1, tinyint => 1 } }
$self->field_default($field),
}
-sub field_type_size {
- my ($self, $field) = @_;
-
- ($field->size && !$self->sizeless_types->{$field->data_type}
- ? '(' . $field->size . ')'
- : ''
- )
-}
-
1;