sub access_A
{
    my ($self, $new_a) = @_;
    $self->{A} = $new_a if defined $new_a;
    return $self->{A};
}