package DataTable;

sub new {
    my $class = shift;
    my $self = {};
    $self->{tablename} = undef;
    $self->{columns} = [];
    $self->{indices} = {};
    bless($self, $class);
    return $self;
}

sub tablename {
   my $self = shift;
   if (@_) { $self->{tablename} = shift; }
   return $self->{tablename};
}

sub columns {
   my $self = shift;
   if (@_) { @{$self->{columns}} = @_; }
   return @{$self->{columns}};
}

sub indices {
   my $self = shift;
   if (@_) { %{$self->{indices}} = @_; }
   return %{$self->{indices}};
}

1;