t/expr.include

   1 use Data::Query::ExprBuilder::Identifier;
   2 use Data::Query::Constants qw(DQ_IDENTIFIER DQ_OPERATOR DQ_VALUE);
   3
   4 sub expr (&) {
   5   _mk_expr($_[0]);
   6 }
   7
   8 sub _mk_expr {
   9   local $_ = Data::Query::ExprBuilder::Identifier->new({
  10     expr => {
  11       type => DQ_IDENTIFIER,
  12       elements => [],
  13     },
  14   });
  15   $_[0]->()->{expr};
  16 }
  17
  18 1;