use Carp::Clan qw/^DBIx::Class/;
use Class::C3;
-our $VERSION = '0.06001';
+our $VERSION = '0.07000';
=head1 NAME
my $dbh = $self->schema->storage->dbh;
$self->{db_schema} ||= $dbh->selectrow_array('VALUES(CURRENT_USER)', {});
+
+ if (not defined $self->preserve_case) {
+ $self->preserve_case(0);
+ }
}
sub _table_uniq_info {
$info->{is_auto_increment} = 1;
}
- if (eval { lc ${ $info->{default_value} } }||'' eq 'current timestamp') {
- ${ $info->{default_value} } = 'CURRENT_TIMESTAMP';
+ if ((eval { lc ${ $info->{default_value} } }||'') eq 'current timestamp') {
+ ${ $info->{default_value} } = 'current_timestamp';
delete $info->{size};
+
+ my $orig_deflt = 'current timestamp';
+ $info->{original}{default_value} = \$orig_deflt;
}
}