use namespace::clean;
use DBIx::Class::Schema::Loader::Table::Informix ();
-our $VERSION = '0.07021';
+our $VERSION = '0.07022';
=head1 NAME
$self->next::method(@_);
- if (not defined $self->preserve_case) {
+ if (not $self->preserve_case) {
$self->preserve_case(0);
}
elsif ($self->preserve_case) {
# if (lc($data_type) eq 'varchar') {
# $result->{$col}{size}[1] = $info->{colmin};
# }
-
+
my ($default_type, $default) = @{$info}{qw/deflt_type deflt/};
next unless $default_type;