factor construction of simple expressions out into ExprHelpers.pm

[dbsrgits/Data-Query.git] / lib / Data / Query / ExprHelpers.pm

package Data::Query::ExprHelpers;

use strictures 1;
use Data::Query::Constants qw(DQ_VALUE DQ_OPERATOR);

use base qw(Exporter);

our @EXPORT_OK = qw(perl_scalar_value perl_operator);

sub perl_scalar_value {
  +{
      type => DQ_VALUE,
      subtype => { Perl => 'Scalar' },
      value => $_[0]
  }
}

sub perl_operator {
  my ($op, @args) = @_;
  +{
    type => DQ_OPERATOR,
    operator => { Perl => $op },
    args => \@args
  }
}

1;