use Data::Query::ExprBuilder::Identifier;
use Data::Query::Constants qw(DQ_IDENTIFIER DQ_OPERATOR DQ_VALUE);

sub expr (&) {
  _mk_expr($_[0]);
}

sub _mk_expr {
  local $_ = Data::Query::ExprBuilder::Identifier->new({
    expr => {
      type => DQ_IDENTIFIER,
      elements => [],
    },
  });
  $_[0]->()->{expr};
}

1;