[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / SQL / OrderBy.pm

package DBIx::Class::SQL::OrderBy;

use strict;
use warnings;

sub _cond_resolve {
  my ($self, $cond, $attrs, @rest) = @_;
  return $self->NEXT::ACTUAL::_cond_resolve($cond, $attrs, @rest)
    unless wantarray;
  my ($sql, @bind) = $self->NEXT::ACTUAL::_cond_resolve($cond, $attrs, @rest);
  if ($attrs->{order_by}) {
    $sql .= " ORDER BY ".join(', ', (ref $attrs->{order_by} eq 'ARRAY'
                                     ? @{$attrs->{order_by}}
                                     : $attrs->{order_by}));
  }
  return ($sql, @bind);
}

1;
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;