| 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 | -  |  |  |