package Foo;
use base qw(Class::Accessor);
__PACKAGE__->mk_accessors(qw( Find confCode db Find type ));
sub demo {
  my $self = shift;
  print STDERR join "\n", $self->Find->{baseUrl}, $self->confCode, $self->db, $self->Find->{userName};
  printf "type = %s\n", $self->type;
}