1 package SQL::Abstract::Formatter;
3 require SQL::Abstract::Parts; # it loads us too, don't cross the streams
7 has indent_by => (is => 'ro', default => ' ');
8 has max_width => (is => 'ro', default => 78);
12 SQL::Abstract::Parts::stringify(\@_);
16 my ($self, $join, @parts) = @_;
17 ::Dwarn [ J => $join => @parts ];
18 my $sql = $self->_join($join, @parts);
19 return $sql unless length($sql) > $self->max_width;
20 local $self->{max_width} = $self->{max_width} - length($self->indent_by);
21 return join("\n", map $self->format(@$_), @parts);