The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

DBIx::Custom::Order - Order by clause

SYNOPSIS

  # Result
  my $order = DBIx::Custom::Order->new;
  $order->prepend('title', 'author desc');
  my $order_by = "$order";
  

ATTRIBUTES

dbi

  my $dbi = $order->dbi;
  $order = $order->dbi($dbi);

DBIx::Custom object.

orders

  my $orders = $result->orders;
  $result = $result->orders(\%orders);

Parts of order by clause

METHODS

DBIx::Custom::Result inherits all methods from Object::Simple and implements the following new ones.

prepend

  $order->prepend('title', 'author desc');

Prepend order parts to orders.

to_string

  my $order_by = $order->to_string;

Create order by clause. If column name is duplicated, First one is used. to_string override stringification. so you can write the following way.

  my $order_by = "$order";