Commit | Line | Data |
b8e1e21f |
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; |