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} or my $wrec = delete $attrs->{with_recursive}) {
17 die "Can't have with and with_recursive at once" if $with and $wrec;
18 my ($wsql, @wbind) = @{ $self->render_statement({
19 -select => ($with ? { with => $with } : { with_recursive => $wrec })
21 unshift @bind, @wbind;
22 $sql = "${wsql} ${sql}";
24 return wantarray ? ($sql, @bind) : $sql;