surface with_recursive as well

[scpubgit/Q-Branch.git] / lib / DBIx / Class / SQLMaker / SQLA2Support.pm

package DBIx::Class::SQLMaker::SQLA2Support;

use strict;
use warnings;
use if $] < '5.010', 'MRO::Compat';
use mro 'c3';
use base qw(
  DBIx::Class::SQLMaker
  SQL::Abstract::ExtraClauses
);

sub select {
  my $self = shift;
  my ($sql, @bind) = $self->next::method(@_);
  my (undef, undef, undef, $attrs) = @_;
  if (my $with = delete $attrs->{with} or my $wrec = delete $attrs->{with_recursive}) {
    die "Can't have with and with_recursive at once" if $with and $wrec;
    my ($wsql, @wbind) = @{ $self->render_statement({
      -select => ($with ? { with => $with } : { with_recursive => $wrec })
    }) };
    unshift @bind, @wbind;
    $sql = "${wsql} ${sql}";
  }
  return wantarray ? ($sql, @bind) : $sql;
}

1;