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

package DBIx::Class::PerlRenderer;

use B qw(perlstring);
use Moo;

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;
	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;