Allow specifying columns for insert

[dbsrgits/SQL-Abstract.git] / lib / SQL / Abstract.pm

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index eb048d0..3c80902 100644 (file)
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -214,6 +214,10 @@ sub insert {
   my $data    = shift || return;
   my $options = shift;
 
+  if (my $cols = $options->{columns}) {
+    $table_sql .= '('.join(', ', map $self->_quote($_), @$cols).')';
+  }
+
   my $method       = $self->_METHOD_FOR_refkind("_insert", $data);
   my ($sql, @bind) = $self->$method($data);
   $sql = join " ", $self->_sqlcase('insert into'), $table, $sql;