1 package Data::Query::ExprBuilder::Identifier;
5 use base qw(Data::Query::ExprBuilder);
6 use Data::Query::Constants qw(DQ_IDENTIFIER);
13 return (ref($_[0])||$_[0])->new({
15 type => DQ_IDENTIFIER,
16 elements => [ @{$_[0]->{expr}{elements}}, $name ]
23 (my $auto = our $AUTOLOAD) =~ s/.*:://;
24 return (ref($_[0])||$_[0])->new({
26 type => DQ_IDENTIFIER,
27 elements => [ @{$_[0]->{expr}{elements}}, $auto ]