From: Matt S Trout <mst@shadowcat.co.uk>
Date: Tue, 1 Oct 2019 02:07:07 +0000 (+0000)
Subject: more pod for new methods
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FQ-Branch.git;a=commitdiff_plain;h=5c5cb82f4776a8fd2f0c43230fd5a85d74b9aebc

more pod for new methods
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index a47f943..95867df 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -3487,8 +3487,8 @@ See L<SQL::Abstract::Reference> for concepts.
 
 =head2 wrap_clause_expanders
 
-  $sql->wrap_expander('name' => sub { my ($orig) = @_; sub { ... } });
-  $sql->wrap_expanders(
+  $sqla->wrap_expander('name' => sub { my ($orig) = @_; sub { ... } });
+  $sqla->wrap_expanders(
     'name1' => sub { my ($orig1) = @_; sub { ... } },
     'name2' => sub { my ($orig2) = @_; sub { ... } },
   );
@@ -3528,12 +3528,26 @@ See L<SQL::Abstract::Reference> for concepts.
 
 =head2 wrap_clause_renderers
 
-  $sql->wrap_renderer('name' => sub { my ($orig) = @_; sub { ... } });
-  $sql->wrap_renderers(
+  $sqla->wrap_renderer('name' => sub { my ($orig) = @_; sub { ... } });
+  $sqla->wrap_renderers(
     'name1' => sub { my ($orig1) = @_; sub { ... } },
     'name2' => sub { my ($orig2) = @_; sub { ... } },
   );
 
+=head2 clauses_of
+
+  my @clauses = $sqla->clauses_of('select');
+  $sqla->clauses_of(select => \@new_clauses);
+  $sqla->clauses_of(select => sub {
+    my (undef, @old_clauses) = @_;
+    ...
+    return @new_clauses;
+  });
+
+=head2 statement_list
+
+  my @list = $sqla->statement_list;
+
 =head1 PERFORMANCE
 
 Thanks to some benchmarking by Mark Stosberg, it turns out that