Lines 20-26
Link Here
|
20 |
|
20 |
|
21 |
use Modern::Perl; |
21 |
use Modern::Perl; |
22 |
|
22 |
|
|
|
23 |
use Sub::Override; |
23 |
use DBIx::Class::Schema::Loader qw/ make_schema_at /; |
24 |
use DBIx::Class::Schema::Loader qw/ make_schema_at /; |
|
|
25 |
require DBIx::Class::Schema::Loader::DBI::mysql; |
26 |
|
27 |
# This is being upstreamed, but for now lets make sure whatever version of DBIx::Class::Schema::Loader you are using, |
28 |
# we will catch MariaDB current_timestamp() and convert it to \"current_timestamp" correctly. |
29 |
Sub::Override->new( |
30 |
'DBIx::Class::Schema::Loader::DBI::mysql::_extra_column_info', |
31 |
sub { |
32 |
no warnings 'uninitialized'; |
33 |
my ( $self, $table, $col, $info, $dbi_info ) = @_; |
34 |
my %extra_info; |
35 |
|
36 |
if ( $dbi_info->{mysql_is_auto_increment} ) { |
37 |
$extra_info{is_auto_increment} = 1; |
38 |
} |
39 |
if ( $dbi_info->{mysql_type_name} =~ /\bunsigned\b/i ) { |
40 |
$extra_info{extra}{unsigned} = 1; |
41 |
} |
42 |
if ( $dbi_info->{mysql_values} ) { |
43 |
$extra_info{extra}{list} = $dbi_info->{mysql_values}; |
44 |
} |
45 |
if ( |
46 |
( not blessed $dbi_info) # isa $sth |
47 |
&& lc( $dbi_info->{COLUMN_DEF} ) =~ m/^current_timestamp/ |
48 |
&& lc( $dbi_info->{mysql_type_name} ) eq 'timestamp' |
49 |
) |
50 |
{ |
51 |
|
52 |
my $current_timestamp = 'current_timestamp'; |
53 |
$extra_info{default_value} = \$current_timestamp; |
54 |
} |
55 |
|
56 |
return \%extra_info; |
57 |
} |
58 |
); |
24 |
|
59 |
|
25 |
use Getopt::Long; |
60 |
use Getopt::Long; |
26 |
use Pod::Usage; |
61 |
use Pod::Usage; |
27 |
- |
|
|