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 {