Commit | Line | Data |
---|---|---|
bb5b7a0d | 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; |