lib/Data/Query/Renderer/SQL/Dialect/ReturnInto.pm

   1 package Data::Query::Renderer::SQL::Dialect::ReturnInto;
   2
   3 use Data::Query::ExprHelpers;
   4 use Moo::Role;
   5
   6 around _render_insert => sub {
   7   my ($orig, $self) = (shift, shift);
   8   my ($dq) = @_;
   9   if (my $into = $dq->{__PACKAGE__.'.into'}) {
  10     my @ret = @{$self->$orig(@_)};
  11     return [
  12       @ret, $self->_format_keyword('INTO'),
  13       intersperse(',', map $self->_render($_), @$into)
  14     ];
  15   } else {
  16     return $self->$orig(@_);
  17   }
  18 };
  19
  20 1;