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