more pod for new methods
Matt S Trout [Tue, 1 Oct 2019 02:07:07 +0000 (02:07 +0000)]
lib/SQL/Abstract.pm

index 279705b..fb5d9e2 100644 (file)
@@ -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