1 package Data::Query::ExprHelpers;
4 use Data::Query::Constants qw(DQ_VALUE DQ_OPERATOR DQ_IDENTIFIER);
8 our @EXPORT_OK = qw(perl_scalar_value perl_operator identifier);
10 sub perl_scalar_value {
13 subtype => { Perl => 'Scalar' },
22 operator => { Perl => $op },
29 type => DQ_IDENTIFIER,