Select Code to Download

  use Class::HPLOO ;
...
      
  }

package Point ;
...

1;

  use Class::HPLOO ;
...
  }

    sub[C] void move_y( SV* self , int mv_y ) {
      int y = self->{y}->int + mv_y ;
      self->{y} = int2sv(y) ;
    }

    sub[C] SV* get_xy_ref( SV* self ) {
      AV* ret = newAV() ; // create an array.
...
      
      return \{ret} ; // return a reference to the array.
    }

    sub[C] SV* get_xy_ref( SV* self ) {
...
      return newRV_inc( ret ) ;
    }