2 use Test::More qw(no_plan);
3 use Data::Query::ExprBuilder::Identifier;
4 use Data::Query::Constants qw(DQ_IDENTIFIER);
7 local $_ = Data::Query::ExprBuilder::Identifier->new({
18 is_deeply(mk_expr($sub), @_);
23 type => DQ_IDENTIFIER,
26 'Simple identifier ok';
29 expr_is { $_->foo->bar }
31 type => DQ_IDENTIFIER,
32 elements => [ 'foo', 'bar' ]
34 'Nested identifier ok';