use List::Util 'first';
use List::MoreUtils 'any';
use Try::Tiny;
+use Scalar::Util 'blessed';
use namespace::clean;
use DBIx::Class::Schema::Loader::Table ();
-our $VERSION = '0.07018';
+our $VERSION = '0.07022';
=head1 NAME
$self->next::method(@_);
- if (not defined $self->preserve_case) {
+ if (not $self->preserve_case) {
$self->preserve_case(0);
}
return ($self->next::method(@_), 'mysql');
}
-sub _tables_list {
+sub _tables_list {
my ($self, $opts) = @_;
return $self->next::method($opts, undef, undef);
if ($dbi_info->{mysql_values}) {
$extra_info{extra}{list} = $dbi_info->{mysql_values};
}
- if ( lc($dbi_info->{COLUMN_DEF}) eq 'current_timestamp'
+ if ((not blessed $dbi_info) # isa $sth
+ && lc($dbi_info->{COLUMN_DEF}) eq 'current_timestamp'
&& lc($dbi_info->{mysql_type_name}) eq 'timestamp') {
my $current_timestamp = 'current_timestamp';