sub access_A
{
   my $self = shift;
   $self->{A} = shift if @_;
   return $self->{A};
}