[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / SQLMaker / Renderer / Access.pm

package DBIx::Class::SQLMaker::Renderer::Access;

use Moo;
use namespace::clean;

extends 'Data::Query::Renderer::SQL::Naive';

around _render_join => sub {
  my ($orig, $self) = (shift, shift);
  my ($dq) = @_;
  local $dq->{outer} = 'INNER' if $dq->{on} and !$dq->{outer};
  [ '(', @{$self->$orig(@_)}, ')' ];
};

1;
Commit	Line	Data
10cef607	1	package DBIx::Class::SQLMaker::Renderer::Access;
	2
	3	use Moo;
	4	use namespace::clean;
	5
	6	extends 'Data::Query::Renderer::SQL::Naive';
	7
	8	around _render_join => sub {
	9	my ($orig, $self) = (shift, shift);
	10	my ($dq) = @_;
	11	local $dq->{outer} = 'INNER' if $dq->{on} and !$dq->{outer};
	12	[ '(', @{$self->$orig(@_)}, ')' ];
	13	};
	14
	15	1;