5 use Data::Dumper::Compact;
6 use SQL::Abstract::Formatter;
8 use SQL::Abstract::ExtraClauses;
10 my $ddc = Data::Dumper::Compact->new(max_width => 72);
11 my $sqla = SQL::Abstract->new(
12 lazy_join_sql_parts => 1,
14 SQL::Abstract::ExtraClauses->apply_to($sqla);
15 my $sqlaf = SQL::Abstract::Formatter->new(max_width => 72);
19 exit 0 unless defined $line;
21 last if $line =~ /\A__END__/;
24 my $slurp = do { local $/; <STDIN> };
26 my ($expr_re, $aqt_re, $query_re) =
27 map qr/(?sm:(.*?)( +)(# ${_}\n)(?:\n|(.*?)\n\n))/, qw(expr aqt query);
30 my ($thing, $indent) = @_;
31 my $thing_ddc = $ddc->dump($thing);
32 $thing_ddc =~ s/^/$indent/mg;
36 sub seval { eval('+('.$_[0].')') or die "seval: $_[0]: $@" }
38 while ($slurp =~ m/\G$expr_re/gc) {
39 my ($pre, $indent, $type, $expr_str) = ($1, $2, $3, $4);
40 print $pre.$indent.$type;
41 print reformat(my $expr = seval($expr_str), $indent);
43 die unless $slurp =~ m/\G$query_re/g;
44 my ($qpre, $qindent, $qtype) = ($1, $2, $3);
45 if ($qpre =~ s/\A$aqt_re//) {
46 my ($apre, $aindent, $atype) = ($1, $2, $3);
47 print $apre.$aindent.$atype;
48 print reformat($sqla->expand_expr($expr), $aindent);
51 print $qpre.$qindent.$qtype;
52 my ($sql, @bind) = $sqla->render_statement($expr);
53 my $fsql = (ref($sql) ? $sqlaf->format(@$sql) : $sql);
54 $fsql =~ s/^/$indent/mg;
56 print reformat(\@bind, $qindent);
60 $slurp =~ /\G(.*)$/sm;