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