1 package DBIx::Class::PerlRenderer;
6 extends 'Data::Query::Renderer::Perl';
8 around _render_identifier => sub {
9 my ($orig, $self) = (shift, shift);
10 my $dq = +{ %{$_[0]}, elements => [ @{$_[0]->{elements}} ] };
11 my $last = pop @{$dq->{elements}};
12 [ $self->$orig($dq)->[0].'->get_column('.perlstring($last).')' ];