1 package SQL::Abstract::ExtraClauses;
5 use if $] < '5.010', 'MRO::Compat';
7 use base qw(SQL::Abstract::Clauses);
9 BEGIN { *puke = \&SQL::Abstract::puke }
12 my ($proto, @args) = @_;
13 my $new = $proto->next::method(@args);
14 $new->{clauses_of}{select} = [
15 @{$new->{clauses_of}{select}}, qw(group_by having)
17 $new->{expand_clause}{'select.group_by'} = sub {
18 $_[0]->_expand_maybe_list_expr($_[1], -ident)
20 $new->{expand_clause}{'select.having'} = sub {
21 $_[0]->expand_expr($_[1], -ident)