Select Code to Download

use Devel::Peek;

...
  PV = 0x2f3ca4 ""
  CUR = 0
  LEN = 0

SV* new(char* class, char* name, char* rank, long serial) {
    Soldier* soldier;
...
    return sv_setref_pv(newSViv(0), class, (void *)soldier);

}

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

    return ret;
}