1 package DBIx::Class::SQL::OrderBy;
7 my ($self, $cond, $attrs, @rest) = @_;
8 return $self->NEXT::ACTUAL::_cond_resolve($cond, $attrs, @rest)
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}));
23 DBIx::Class::SQL::OrderBy - Implements sorting for DBIC's SQL backend
29 This class implements the order_by attribute to L<DBIx::Class>'s search
36 Matt S. Trout <perl-stuff@trout.me.uk>
40 You may distribute this code under the same terms as Perl itself.