sub new_from_http_request {
  my ($class) = shift ;
  my $self = $shift ;
  $self->{myA} = undef ;
  return bless $self, $class ;
}