1 package DBIx::Class::SQLMaker::SQLA2Support;
5 use if $] < '5.010', 'MRO::Compat';
9 SQL::Abstract::ExtraClauses
14 my ($sql, @bind) = $self->next::method(@_);
15 my (undef, undef, undef, $attrs) = @_;
16 if (my $with = delete $attrs->{with}) {
17 my ($wsql, @wbind) = @{ $self->render_statement({
18 -select => { with => $with }
20 unshift @bind, @wbind;
21 $sql = "${wsql} ${sql}";
23 return wantarray ? ($sql, @bind) : $sql;