[Bast-commits] r9680 - in SQL-Abstract/1.x/branches/sqla-tree: . script

[frew at dev.catalyst.perl.org]

Author: frew
Date: 2010-09-04 04:31:51 +0100 (Sat, 04 Sep 2010)
New Revision: 9680

Added:
   SQL-Abstract/1.x/branches/sqla-tree/script/
   SQL-Abstract/1.x/branches/sqla-tree/script/format-sql
Log:
initial formatting script

Added: SQL-Abstract/1.x/branches/sqla-tree/script/format-sql
===================================================================
--- SQL-Abstract/1.x/branches/sqla-tree/script/format-sql	                        (rev 0)
+++ SQL-Abstract/1.x/branches/sqla-tree/script/format-sql	2010-09-04 03:31:51 UTC (rev 9680)
@@ -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 <>;


Property changes on: SQL-Abstract/1.x/branches/sqla-tree/script/format-sql
___________________________________________________________________
Added: svn:executable
   + *