X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FSQLAHacks%2FMySQL.pm;fp=lib%2FDBIx%2FClass%2FSQLAHacks%2FMySQL.pm;h=0000000000000000000000000000000000000000;hb=d5dedbd62928f65a9071b4d9b6d56c6b663a073b;hp=cc177f13f46dd5287d96b26bf6ed90c7d3f6e9eb;hpb=2149a4e91f82d2f77657c18d4a0b312327987d5d;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/SQLAHacks/MySQL.pm b/lib/DBIx/Class/SQLAHacks/MySQL.pm deleted file mode 100644 index cc177f1..0000000 --- a/lib/DBIx/Class/SQLAHacks/MySQL.pm +++ /dev/null @@ -1,34 +0,0 @@ -package # Hide from PAUSE - DBIx::Class::SQLAHacks::MySQL; - -use base qw( DBIx::Class::SQLAHacks ); -use Carp::Clan qw/^DBIx::Class|^SQL::Abstract/; - -# -# MySQL does not understand the standard INSERT INTO $table DEFAULT VALUES -# Adjust SQL here instead -# -sub insert { - my $self = shift; - - my $table = $_[0]; - $table = $self->_quote($table); - - if (! $_[1] or (ref $_[1] eq 'HASH' and !keys %{$_[1]} ) ) { - return "INSERT INTO ${table} () VALUES ()" - } - - return $self->SUPER::insert (@_); -} - -# Allow STRAIGHT_JOIN's -sub _generate_join_clause { - my ($self, $join_type) = @_; - - if( $join_type && $join_type =~ /^STRAIGHT\z/i ) { - return ' STRAIGHT_JOIN ' - } - - return $self->SUPER::_generate_join_clause( $join_type ); -} -1;