2 use Data::Query::ExprBuilder::Identifier;
3 use Data::Query::ExprHelpers;
4 use Data::Query::Constants;
7 _run_expr($_[0])->{expr};
11 local $_ = Data::Query::ExprBuilder::Identifier->new({
19 (bless(\$as, 'LIES::AS'), @_);
26 : { expr => perl_scalar_value($_) }
30 my $e = shift @select;
32 (ref($select[0]) eq 'LIES::AS'
33 ? Alias(${shift(@select)}, $e->{expr})
39 expr => Select(\@final, ($_[0]||{})->{expr})
46 my @from = _run_expr(shift);
47 if (@from == 2 and ref($from[1]) eq 'LIES::AS') {
49 expr => Alias(${$from[1]}, $from[0])
51 } elsif (@from == 1) {
52 return { expr => $from[0] };