sub new {
        my $class = shift; ##NB
        my $self = {};

        $self->{ObjA_ref} = shift;
        $self->{ObjB_ref} = shift;


        bless $self, $class;
        return $self;
    }