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;