The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package DBIx::ActiveRecord::Arel::Column;
use strict;
use warnings;

our $USE_FULL_NAME = 0;
our $AS = {};

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

sub table {shift->{table}}

sub name {
  my $self = shift;
  if ($USE_FULL_NAME) {
      ($AS->{$self->table->table}||$self->table->table).'.'.$self->{column};
  } else {
      $self->{column};
  }
}

1;