Трудничко ще е да ми помогнете май, защото така написани нещата нямат много смисъл. Видях как задават първоначалното име на таблицата. Ето цялата set_table:

sub set_table
{
my ($self, $table) = @_;
if (defined ($table))
{
$self->{_table} = $table;
}
else
{
$self->{_table} = $self->{_table_desc}->{'table'};
}
}

А и конструктора:

#constructor
sub new
{
my ($class, $table_desc) = @_;
my $self = {
_table_desc => undef,
_values => undef,
_table => undef,
_dirty => 1,
};
$self->{_table_desc} = $table_desc;
bless $self, $class;
$self->set_table();
return $self;
}

Останалия код не виждам какво общо може да има. Това чудо ли е или някой има разумно обяснение?