Select Code to Download

use Devel::Peek;

...
}

END

Soldier *    SOLDIER

...
        sv_setiv(obj, (IV)$var);
        SvREADONLY_on(obj);
        $arg;

Soldier *    SOLDIER

...
OUTPUT
SOLDIER
    sv_setref_pv($arg, \"Soldier\", (void*)$var);