v klasa vsichko e kakto sledva da e.
proveri kakvo ima v obekta (i dali e obekt vyobshte):

my $obj = TEST->new();

$obj->set_table("clicks");

my $x = $obj->get_table();

use Data::Dumper;
print Dumper($obj);

__END__

sledva da imash tozi STDOUT:

$VAR1 = bless( {
'_dirty' => 1,
'_table_desc' => {},
'_table' => 'clicks',
'_values' => undef
}, 'TEST' );