From: Matt S Trout Date: Mon, 17 Sep 2018 23:06:33 +0000 (+0000) Subject: remove vestigial _order_by_chunks method X-Git-Tag: v2.000000~3^2~450 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b0c92bb97e515ffa30dee2b0e7153ae910d27fca;p=dbsrgits%2FSQL-Abstract.git remove vestigial _order_by_chunks method --- diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm index ad843f6..e0d58cc 100644 --- a/lib/SQL/Abstract.pm +++ b/lib/SQL/Abstract.pm @@ -1091,34 +1091,6 @@ sub _order_by { return wantarray ? ($final_sql, @bind) : $final_sql; } -sub _order_by_chunks { - my ($self, $arg) = @_; - - if (ref($arg) eq 'ARRAY') { - return map $self->_order_by_chunks($_), @$arg; - } - if (my $l = is_literal_value($arg)) { - return +{ -literal => $l }; - } - if (!ref($arg)) { - return +{ -ident => $arg }; - } - if (ref($arg) eq 'HASH') { - my ($key, $val, @rest) = %$arg; - - return () unless $key; - - if (@rest or not $key =~ /^-(desc|asc)/i) { - puke "hash passed to _order_by must have exactly one key (-desc or -asc)"; - } - - my $dir = $1; - - map +{ -op => [ $dir, $_ ] }, $self->_order_by_chunks($val); - }; -} - - #====================================================================== # DATASOURCE (FOR NOW, JUST PLAIN TABLE OR LIST OF TABLES) #======================================================================