use Class::C3;
use Carp::Clan qw/^DBIx::Class/;
-our $VERSION = '0.04999_14';
+our $VERSION = '0.05002';
=head1 NAME
my $dbh = $self->schema->storage->dbh;
my @tables = $dbh->tables(undef, $self->db_schema, $table, $type);
- my $qt = qr/\Q$self->{_quoter}\E/;
+ my $qt = qr/[\Q$self->{_quoter}\E"'`\[\]]/;
- if ($self->{_quoter} && $tables[0] =~ /$qt/) {
+ my $all_tables_quoted = (grep /$qt/, @tables) == @tables;
+
+ if ($self->{_quoter} && $all_tables_quoted) {
s/.* $qt (?= .* $qt)//xg for @tables;
} else {
s/^.*\Q$self->{_namesep}\E// for @tables;
$col_name =~ s/^\"(.*)\"$/$1/;
my $extra_info = $self->_extra_column_info($info) || {};
-
- $result{$col_name} = { %column_info, %$extra_info };
+ my $custom_info = $self->_custom_column_info($info) || {};
+ my $datetime_info = $self->_datetime_column_info($info,
+ { %column_info, %$extra_info, %$custom_info }) || {};
+ $result{$col_name} = { %column_info, %$extra_info, %$custom_info, %$datetime_info };
}
$sth->finish;
};