package My::Object;

use strict;
use base qw( Class::Accessor );
my @FIELDS = qw( dsn username password table );
My::Object->mk_accessors( @FIELDS );

...