From: Arthur Axel "fREW" Schmidt <frioux@gmail.com>
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 <>;