From: Matt S Trout Date: Tue, 1 Oct 2019 02:07:07 +0000 (+0000) Subject: more pod for new methods X-Git-Tag: v1.90_01~41 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5c5cb82f4776a8fd2f0c43230fd5a85d74b9aebc;p=dbsrgits%2FSQL-Abstract.git 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 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 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