package DBIx::ActiveRecord::Arel::Order;
use strict;
use warnings;

sub new {
    my ($self, $type, $column) = @_;
    bless {type => $type, column => $column}, $self;
}

sub build {
    my $self = shift;
    my $t = $self->{type};
    $t = " $t" if $t;
    $self->{column}->name.$t;
}

sub reverse {
    my $self = shift;
    if ($self->{type} eq 'DESC') {
      $self->{type} = "";
    } else {
      $self->{type} = "DESC";
    }
}

1;