use Carp::Clan qw/^DBIx::Class/;
use Class::C3;
-our $VERSION = '0.06000';
+our $VERSION = '0.06001';
=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/["`]/;
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';
}