1package # Hide from PAUSE
2  DBIx::Class::SQLAHacks::MySQL;
3
4use base qw( DBIx::Class::SQLAHacks );
5use Carp::Clan qw/^DBIx::Class|^SQL::Abstract/;
6
7#
8# MySQL does not understand the standard INSERT INTO $table DEFAULT VALUES
9# Adjust SQL here instead
10#
11sub insert {
12  my $self = shift;
13
14  my $table = $_[0];
15  $table = $self->_quote($table);
16
17  if (! $_[1] or (ref $_[1] eq 'HASH' and !keys %{$_[1]} ) ) {
18    return "INSERT INTO ${table} () VALUES ()"
19  }
20
21  return $self->SUPER::insert (@_);
22}
23
241;
25