lib/DBIx/Class/PerlRenderer.pm

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