From: Arthur Axel "fREW" Schmidt Date: Sat, 4 Sep 2010 03:31:51 +0000 (+0000) Subject: initial formatting script X-Git-Tag: v1.70~91^2~1 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2005eba8e5ebbeb2855d01686888ecf60fe6cc68;p=dbsrgits%2FSQL-Abstract.git initial formatting script --- diff --git a/script/format-sql b/script/format-sql new file mode 100755 index 0000000..86d008b --- /dev/null +++ b/script/format-sql @@ -0,0 +1,7 @@ +#!/usr/bin/env perl + +use SQL::Abstract::Tree; + +my $sqlat = SQL::Abstract::Tree->new({ profile => 'console' }); + +print $sqlat->format($_) . "\n" while <>;