Select Code to Download

my $dsgn = subA();
$dsgn->method();
...
  my $obj = new (c++_object);
  return $obj;
}

my $obj = new (c++_object)
subA($obj)
...
  my ($object) = @_;
  $object->method();
}

    CALLEE can NOT return OBJECT

    CALLER can ALWAYS pass OBJECT