TYPEMAP
const char * T_PV
test_class       * ANY OBJECT

OUTPUT

ANY OBJECT
  sv_setref_pv($arg, CLASS, (void *) $var);

INPUT
  ANY OBJECT
   $var = ($type) SvIV((SV*)SvRV($arg));


##</code><code>##

XS(XS_Test_TestMethod)
{
    dXSARGS;
    if (items != 2)
        Perl_croak(aTHX_ "Usage: Test::TestMethod(CLASS, param1)");
    {
        char*   CLASS = (char *)SvPV(ST(0),PL_na);
        pstruct *  param1;


##</code><code>##

XS(XS_Test_TestMethod)
{
    dXSARGS;
    if (items != 2)
        Perl_croak(aTHX_ "Usage: Test::TestMethod(CLASS, param1)");
    {
        char*	CLASS = (char *)SvPV_nolen(ST(0));
        pstruct *  param1 = (pstruct *) SvIV((SV*)SvRV(ST(1)));