X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FAbstract%2FTree.pm;h=78d496a3e86080fefea34c0ed5041b57780984f8;hb=6b1bf9f8155a05d8e2827c30af8d0ad8071bd295;hp=d626caf79bc89ea63ab6b5de96871efed3f3516c;hpb=c1b89c4f27e3a8b01a0974eba7dec9ce281c5d00;p=dbsrgits%2FSQL-Abstract.git diff --git a/lib/SQL/Abstract/Tree.pm b/lib/SQL/Abstract/Tree.pm index d626caf..78d496a 100644 --- a/lib/SQL/Abstract/Tree.pm +++ b/lib/SQL/Abstract/Tree.pm @@ -346,3 +346,14 @@ sub format { my $self = shift; $self->unparse($self->parse(@_)) } # FROM foo # WHERE foo.a > 2 +=head1 METHODS + +=head2 new + + my $sqla_tree = SQL::Abstract::Tree->new({ profile => 'console' }); + +=head2 format + + $sqlat->format('SELECT * FROM bar') + +Returns a formatting string based on wthe string passed in