lib/DBIx/Class/PerlRenderer.pm

   1 package DBIx::Class::PerlRenderer;
   2
   3 use B qw(perlstring);
   4 use Moo;
   5
   6 extends 'Data::Query::Renderer::Perl';
   7
   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).')' ];
  13 };
  14
  15 1;