MAIN
my C++object
  C++object = pckA::routine
  pckB::routine(C++object)

PACKAGEA
our C++object
  routine
      new C++object
      return C++object

PACKAGEB
  routine
      my $C++object = @_
      $C++object->method()