From: Matt S Trout Date: Mon, 23 Sep 2019 02:44:54 +0000 (+0000) Subject: clean up select.setop renderer X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e2db8228814dcffb063542b82787498d45479b94;p=scpubgit%2FQ-Branch.git clean up select.setop renderer --- diff --git a/lib/SQL/Abstract/ExtraClauses.pm b/lib/SQL/Abstract/ExtraClauses.pm index 808ff0d..7a70118 100644 --- a/lib/SQL/Abstract/ExtraClauses.pm +++ b/lib/SQL/Abstract/ExtraClauses.pm @@ -76,10 +76,9 @@ sub apply_to { $self->cb('_expand_select', $_[0], \@before_setop); }); - $sqla->clause_renderer('select.setop' => $self->cb(sub { - my ($self, undef, $setop) = @_; - $self->render_aqt($setop); - })); + $sqla->clause_renderer( + 'select.setop' => $self->cb(sub { $_[0]->render_aqt($_[2]); }) + ); foreach my $setop (qw(union intersect except)) { $sqla->expander($setop => $self->cb('_expand_setop'));