confess "'columns' should be an array ref, not " . dump($ast->{columns})
unless is_ArrayRef($ast->{columns});
- my $cols = join ($self->list_separator, map { $self->dispatch($_) } @{ $ast->{columns}});
+ my $cols = $self->_list({-type => 'list', args => $ast->{columns} });
my @output = (
SELECT => $cols
return join(' ', @output);
}
- method _where(ArrayAST $ast) {
- my (undef, @clauses) = @$ast;
+ method _join(HashRef $ast) {
+ confess "'args' option to join should be an array ref, not " . dump($ast->{args})
+ unless is_ArrayRef($ast->{args});
+
+ my ($from, $to) = @{ $ast->{args} };
+
+ # TODO: Validate join type
+ my $type = $ast->{join_type} || "";
- return 'WHERE ' . $self->_recurse_where(\@clauses);
+ my @output = $self->dispatch($from);
+
+ push @output, uc $type if $type;
+ push @output, "JOIN", $self->dispatch($to);
+
+ push @output,
+ exists $ast->{on}
+ ? ('ON', '(' . $self->_expr( $ast->{on} ) . ')' )
+ : ('USING', '(' .$self->dispatch($ast->{using} || croak "No 'on' or 'join' clause passed to -join").
+ ')' );
+
+ return join(" ", @output);
+
}
method _order_by(AST $ast) {
return $ret;
}
- method _join(HashRef $ast) {
-
- my $output = 'JOIN ' . $self->dispatch($ast->{tablespec});
-
- $output .= exists $ast->{on}
- ? ' ON (' . $self->_expr( $ast->{on} )
- : ' USING (' .$self->dispatch($ast->{using} || croak "No 'on' or 'join' clause passed to -join");
-
- $output .= ")";
- return $output;
-
- }
method _list(AST $ast) {
my @items = @{$ast->{args}};