WIP recursing order_by madness so far (hard because of an API hole - what is a column...

diff --git a/lib/DBIx/Class/SQLAHacks.pm b/lib/DBIx/Class/SQLAHacks.pm
index 3cf750c..0628106 100644 (file)
--- a/lib/DBIx/Class/SQLAHacks.pm
+++ b/lib/DBIx/Class/SQLAHacks.pm
@@ -633,6 +633,8 @@ sub _recurse_fields {
       croak "Malformed select argument - too many keys in hash: " . join (',', keys %$fields );
     }
 
+    $func =~ s/^\-+//;  # strip leading dash, at some point the dash itself should become mandatory
+
     if (lc ($func) eq 'distinct' && ref $args eq 'ARRAY' && @$args > 1) {
       croak (
         'The select => { distinct => ... } syntax is not supported for multiple columns.'
@@ -713,6 +715,27 @@ sub _order_by {
   }
 }
 
+sub _order_by_chunks {
+  my ($self, $arg) = @_;
+
+  return $self->_recurse_where ($arg) if ($self->{_order_by_recurse});
+
+  if (  # non-empty hash with neither an -asc or a -desc
+    ref $arg eq 'HASH'
+      &&
+    keys %$arg
+      &&
+    ! exists $arg->{-desc}
+      &&
+    ! exists $arg->{-asc}
+  ) {
+    local $self->{_order_by_recurse} = 1;
+    return $self->_recurse_where ($arg);
+  }
+
+  return $self->SUPER::_order_by_chunks ($arg);
+}
+
 sub _order_directions {
   my ($self, $order) = @_;
 

diff --git a/t/sqlahacks/order_by_func.t b/t/sqlahacks/order_by_func.t
index 51968ed..1caac14 100644 (file)
--- a/t/sqlahacks/order_by_func.t
+++ b/t/sqlahacks/order_by_func.t
@@ -7,29 +7,45 @@ use DBICTest;
 use DBIC::SqlMakerTest;
 
 my $schema = DBICTest->init_schema();
+$schema->storage->sql_maker->quote_char ('"');
+$schema->storage->sql_maker->name_sep ('.');
 
 my $rs = $schema->resultset('CD')->search({}, {
     'join' => 'tracks',
-    order_by => {
+    order_by => [
+      { -length => 'me.title' },
+      {
         -desc => {
-            count => 'tracks.track_id',
+            count => 'tracks.trackid',
         },
-    },
+      },
+    ],
     distinct => 1,
     rows => 2,
-    page => 1,
+    page => 2,
 });
-my $match = q{
-    SELECT me.cdid, me.artist, me.title, me.year, me.genreid, me.single_track FROM cd me
-    GROUP BY me.cdid, me.artist, me.title, me.year, me.genreid, me.single_track
-    ORDER BY COUNT(tracks.trackid) DESC
-};
 
-TODO: {
-    todo_skip 'order_by using function', 2;
-    is_same_sql($rs->as_query, $match, 'order by with func query');
+is_same_sql_bind(
+  $rs->as_query,
+  '(
+    SELECT "me"."cdid", "me"."artist", "me"."title", "me"."year", "me"."genreid", "me"."single_track"
+      FROM cd "me"
+      LEFT JOIN "track" "tracks" ON "tracks"."cd" = "me"."cdid"
+    GROUP BY "me"."cdid", "me"."artist", "me"."title", "me"."year", "me"."genreid", "me"."single_track"
+    ORDER BY
+      LENGTH( "me"."title" ),
+      COUNT( "tracks"."trackid" ) DESC
+    LIMIT 2 OFFSET 2
+  )',
+  [],
+  'order by with func query',
+);
 
-    ok($rs->count == 2, 'amount of rows return in order by func query');
-}
+ok($rs->count_rs->next == 2, 'amount of rows return in order by func query');
+is_deeply (
+  [ $rs->get_column ('me.title')->all ],
+  [ "Caterwaulin' Blues", "Come Be Depressed With Us" ],
+  'Correctly ordered stuff by title-length',
+);
 
 done_testing;