sub new {
    my $self = {};
    
    $self->{ObjA_ref} = shift; ## This is the class name Eg. 'MyClass'
    $self->{ObjB_ref} = shift; ## This is the ClassA ref


    bless $self;
    return $self;
}