[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / PerlRenderer.pm

package DBIx::Class::PerlRenderer;

use B qw(perlstring);
use Moo;
use namespace::clean;

extends 'Data::Query::Renderer::Perl';

around _render_identifier => sub {
  my ($orig, $self) = (shift, shift);
  my $dq = +{ %{$_[0]}, elements => [ @{$_[0]->{elements}} ] };
  my $last = pop @{$dq->{elements}};
  [ $self->$orig($dq)->[0].'->get_column('.perlstring($last).')' ];
};

1;
Commit	Line	Data
c1b38300	1	package DBIx::Class::PerlRenderer;
	2
	3	use B qw(perlstring);
	4	use Moo;
5e9267d9	5	use namespace::clean;
c1b38300	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;