projects
/
dbsrgits/Data-Query.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
1ba349e84d7c4b78bf90388c2bfc7bc4ee8d4cbd
[dbsrgits/Data-Query.git]
/
lib
/
Data
/
Query
/
ExprHelpers.pm
1
package Data::Query::ExprHelpers;
2
3
use strictures 1;
4
use Data::Query::Constants qw(DQ_VALUE DQ_OPERATOR);
5
6
use base qw(Exporter);
7
8
our @EXPORT_OK = qw(perl_scalar_value perl_operator);
9
10
sub perl_scalar_value {
11
+{
12
type => DQ_VALUE,
13
subtype => { Perl => 'Scalar' },
14
value => $_[0]
15
}
16
}
17
18
sub perl_operator {
19
my ($op, @args) = @_;
20
+{
21
type => DQ_OPERATOR,
22
operator => { Perl => $op },
23
args => \@args
24
}
25
}
26
27
1;