Select Code to Download

=head1 STUFF
Soldier *    SOLDIER
...
        $arg;

=cut

STUFF
    Soldier * SOLDIER
...

    OUTPUT SOLDIER $arg = newSViv(0); SV * obj = newSVrv($arg, \"Soldi
+er\");
    sv_setiv(obj, (IV)$var); SvREADONLY_on(obj); $arg;

STUFF
Soldier *    SOLDIER
...
        sv_setiv(obj, (IV)$var);
        SvREADONLY_on(obj);
        $arg;