# Copyright 2000 ActiveState
TYPEMAP
PyObject * PyO_Ref
NewPyObject * New_PyO_Ref
NewPyObjectX * New_PyO_Ref_X
PerlPyErr * PyErr_Ref
OUTPUT
New_PyO_Ref
$arg = 0; /* because xsubpp need '$arg =' first */
ASSERT_LOCK_PERL;
$arg = newPerlPyObject_noinc($var);
New_PyO_Ref_X
$arg = 0; /* because xsubpp need '$arg =' first */
ASSERT_LOCK_PYTHON;
PERL_LOCK;
$arg = pyo2sv($var);
PERL_UNLOCK;
Py_DECREF($var);
ENTER_PERL;
INPUT
PyO_Ref
$var = PerlPyObject_pyo($arg)
PyErr_Ref
$var = PerlPyErr_err($arg)