how to pass object reference between Perl XS and Perl ?

[runiaz]

I have a class A that is defined in xs

XS:

class A{
   A() { a = 100;};
   int a;
};

I create an object of this class from perl

package->new();
 

and save this pointer in perl class.

and I also wrote a perl function that return this pointer

my($self) = @;
return \$self->[CPPSPLITOBJECT];

I also wrote XS function to get this object:

SV* chunk = newSV(0);
call_GetCppObject(currentObject, chunk)
CppSplitSeqClass* cppObject = (CppSplitClass*)chunk;

and now if a check the value of "a" it will not be correct

cppObject->a;

But all function can be called ok.
What can be wrong here?