=cut
+sub _setup {
+ my $self = shift;
+
+ $self->next::method(@_);
+
+ if (not defined $self->preserve_case) {
+ $self->preserve_case(0);
+ }
+}
+
sub _tables_list {
my ($self, $opts) = @_;
my $f_table = shift @reldata;
my $f_cols = shift @reldata;
- my @cols = map { s/(?: \Q$self->{_quoter}\E | $qt )//x; lc $_ }
+ my @cols = map { s/(?: \Q$self->{_quoter}\E | $qt )//x; $self->_lc($_) }
split(/$qt?\s*$qt?,$qt?\s*$qt?/, $cols);
- my @f_cols = map { s/(?: \Q$self->{_quoter}\E | $qt )//x; lc $_ }
+ my @f_cols = map { s/(?: \Q$self->{_quoter}\E | $qt )//x; $self->_lc($_) }
split(/$qt?\s*$qt?,$qt?\s*$qt?/, $f_cols);
push(@rels, {
while(my $row = $sth->fetchrow_hashref) {
next if $row->{Non_unique};
push(@{$keydata{$row->{Key_name}}},
- [ $row->{Seq_in_index}, lc $row->{Column_name} ]
+ [ $row->{Seq_in_index}, $self->_lc($row->{Column_name}) ]
);
}
foreach my $keyname (keys %keydata) {
if ( lc($dbi_info->{COLUMN_DEF}) eq 'current_timestamp'
&& lc($dbi_info->{mysql_type_name}) eq 'timestamp') {
- $extra_info{default_value} = \'CURRENT_TIMESTAMP';
+ my $current_timestamp = 'current_timestamp';
+ $extra_info{default_value} = \$current_timestamp;
}
return \%extra_info;