Commit | Line | Data |
4f4fd192 |
1 | use MooseX::Declare; |
2 | role SQL::Translator::Parser::DBI::MySQL { |
6fbb2193 |
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}; |
1f5bc4d1 |
18 | $default_value =~ s/::.*$// if defined $default_value; |
6fbb2193 |
19 | |
20 | return $default_value; |
21 | } |
4f4fd192 |
22 | } |