lib/DBIx/Class/SQL/OrderBy.pm

   1 package DBIx::Class::SQL::OrderBy;
   2
   3 use strict;
   4 use warnings;
   5
   6 sub _cond_resolve {
   7   my ($self, $cond, $attrs, @rest) = @_;
   8   return $self->NEXT::ACTUAL::_cond_resolve($cond, $attrs, @rest)
   9     unless wantarray;
  10   my ($sql, @bind) = $self->NEXT::ACTUAL::_cond_resolve($cond, $attrs, @rest);
  11   if ($attrs->{order_by}) {
  12     $sql .= " ORDER BY ".join(', ', (ref $attrs->{order_by} eq 'ARRAY'
  13                                      ? @{$attrs->{order_by}}
  14                                      : $attrs->{order_by}));
  15   }
  16   return ($sql, @bind);
  17 }
  18
  19 1;