X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FSQLMaker%2FMySQL.pm;h=c96b11cc5bd8933f9d85ec4f41ef2b4e473f09d7;hb=ebc5c60a4ff45bb9ab7630e2512015b3b7cb2c96;hp=fdb2d6bebc7c58211c5a353374b9461ac1c7bdb2;hpb=70c288086248e5a4008490df22a56632341f2473;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/SQLMaker/MySQL.pm b/lib/DBIx/Class/SQLMaker/MySQL.pm index fdb2d6b..c96b11c 100644 --- a/lib/DBIx/Class/SQLMaker/MySQL.pm +++ b/lib/DBIx/Class/SQLMaker/MySQL.pm @@ -10,14 +10,12 @@ use base qw( DBIx::Class::SQLMaker ); sub insert { my $self = shift; - my $table = $_[0]; - $table = $self->_quote($table); - if (! $_[1] or (ref $_[1] eq 'HASH' and !keys %{$_[1]} ) ) { + my $table = $self->_quote($_[0]); return "INSERT INTO ${table} () VALUES ()" } - return $self->SUPER::insert (@_); + return $self->next::method (@_); } # Allow STRAIGHT_JOIN's @@ -28,7 +26,7 @@ sub _generate_join_clause { return ' STRAIGHT_JOIN ' } - return $self->SUPER::_generate_join_clause( $join_type ); + return $self->next::method($join_type); } # LOCK IN SHARE MODE