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

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