File Coverage

blib/lib/DBR/Config/Table/Common.pm

Criterion	Covered	Total	%
statement	21	22	95.4
branch	5	6	83.3
condition			n/a
subroutine	5	6	83.3
pod	0	3	0.0
total	31	37	83.7

package DBR::Config::Table::Common;

use strict;
use base 'DBR::Common';
use Carp;

sub alias{
      my $self = shift;
      my $set = shift;
      if($set){
	    croak "Cannot set the alias on a table object twice" if defined( $self->{alias} ); # I want this to fail obnoxiously
	    return $self->{alias} = $set;
      }

      return $self->{alias};

}

sub validate { 1 }

sub sql  {
      my $self = shift;
      my $name  = $self->name;
      my $alias = $self->alias;

      my $sql = $name;
      $sql   .= ' AS ' . $alias if $alias;

      return $sql;
}

1;