Select Code to Download

SV* new( char* class, char* name, char* rank, long serial )
{
...

    return perlObj;
}

IV new( char* class, char* name, char* rank, long serial )
{
...

    return (IV)soldier;
}