package SQL::Builder::Select;
use strict;
use warnings;
use Exporter;
use Carp;
use vars qw / $VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS /;

$VERSION = 1.00;
@ISA = qw/ Exporter /;
@EXPORT_OK = qw / new column table /;

sub new {
	my $proto = shift;
  my $class = ref($proto) || $proto;
  my $self = {};
  
  bless ($self, $class);
  return $self;
}

sub column {
	my $self = shift;
	my $count = @_;
	
	for (@_) {
		push @{$self->{column}}, $_;
	}
	return $count;
}

sub table {
	my $self = shift;
	
	for (@_) {
		push @{$self->{table}}, $_;
	}
}

1;

##</code><code>##

my $select = new SQL::Builder::Select;

$select->column( @cols );
$select->table( @tables );