sub build_class {
   my ($class) = @_;

   $class->mk_accessors( qw(smb_hostname) );
   $class->mk_accessors( qw(smb_username) );
   ...
}