lib/SQL/Translator/Parser/DBI/MySQL.pm

   1 use MooseX::Declare;
   2 role SQL::Translator::Parser::DBI::MySQL {
   3     use MooseX::Types::Moose qw(HashRef Str);
   4     use SQL::Translator::Types qw(View);
   5
   6     method _get_view_sql(View $view) {
   7         #my ($sql) = $self->dbh->selectrow_array('');
   8         #return $sql;
   9         return '';
  10     }
  11
  12     method _is_auto_increment(HashRef $column_info) {
  13         return $column_info->{mysql_is_auto_increment};
  14     }
  15
  16     method _column_default_value(HashRef $column_info) {
  17         my $default_value = $column_info->{COLUMN_DEF};
  18         $default_value =~ s/::.*$// if defined $default_value;
  19
  20         return $default_value;
  21     }
  22 }