From: Matt S Trout Date: Tue, 1 Oct 2019 01:34:25 +0000 (+0000) Subject: nuke old sqlmaker hack X-Git-Tag: v2.000000~3^2~67 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0c796d26b555bba8f5519163fd9a172e7cd372f3;p=dbsrgits%2FSQL-Abstract.git nuke old sqlmaker hack --- diff --git a/lib/DBIx/Class/SQLMaker/SQLA2Support.pm b/lib/DBIx/Class/SQLMaker/SQLA2Support.pm deleted file mode 100644 index 82f2a16..0000000 --- a/lib/DBIx/Class/SQLMaker/SQLA2Support.pm +++ /dev/null @@ -1,27 +0,0 @@ -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;