package My::Class;

use strict;
use base qw( Class::Accessor );

My::Class->mk_accessors( qw( field1 field2 field3 ) );