use Carp::Clan qw/^DBIx::Class/;
use Class::C3;
-our $VERSION = '0.06000';
+our $VERSION = '0.07000';
=head1 NAME
my ($self, $table) = @_;
my $dbh = $self->schema->storage->dbh;
- my $table_def_ref = $dbh->selectrow_arrayref("SHOW CREATE TABLE `$table`")
- or croak ("Cannot get table definition for $table");
- my $table_def = $table_def_ref->[1] || '';
+
+ my $table_def_ref = eval { $dbh->selectrow_arrayref("SHOW CREATE TABLE `$table`") };
+ my $table_def = $table_def_ref->[1];
+
+ return [] if not $table_def;
my $qt = qr/["`]/;
my $f_cols = shift @reldata;
my @cols = map { s/(?: \Q$self->{_quoter}\E | $qt )//x; lc $_ }
- split(/\s*,\s*/, $cols);
+ split(/$qt?\s*$qt?,$qt?\s*$qt?/, $cols);
my @f_cols = map { s/(?: \Q$self->{_quoter}\E | $qt )//x; lc $_ }
- split(/\s*,\s*/, $f_cols);
+ split(/$qt?\s*$qt?,$qt?\s*$qt?/, $f_cols);
push(@rels, {
local_columns => \@cols,
if ($dbi_info->{mysql_values}) {
$extra_info{extra}{list} = $dbi_info->{mysql_values};
}
- if ( $dbi_info->{COLUMN_DEF} =~ /^CURRENT_TIMESTAMP\z/i
- && $dbi_info->{mysql_type_name} =~ /^TIMESTAMP\z/i) {
+ if ( lc($dbi_info->{COLUMN_DEF}) eq 'current_timestamp'
+ && lc($dbi_info->{mysql_type_name}) eq 'timestamp') {
$extra_info{default_value} = \'CURRENT_TIMESTAMP';
}