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

##</code><code>##

my $httpr = AnotherModule::f() ;
my $ownHttpr =
  My::HTTPRequest->new_from_http_request($httpr);

##</code><code>##

sub new{
  my ($class) = shift ;
  my $self;

  if (@_) {
    my $self = shift ;
  } else { 
    my $self = $class->SUPER::new(@_) ;
  }
  $self->{'myA'} = undef ;
  return bless $self, $class ;
}