sub method {
    my @args = @_;
    $args[0] = tied(%{$args[0]});
    my $result = C++CODE::method(@args);
    return $result;
}

##</code><code>##

use lib (<path>)
use (C++ package)

##</code><code>##

my $dsgn = new (c++_object)
$dsgn->(method)

##</code><code>##

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()