package MyClass;

use strict;
use warnings;
use 5.010;

sub new {
    my $self = {};
    
    $self->{ObjA_ref} = shift;
    $self->{ObjB_ref} = shift;


    bless $self;
    return $self;
}