Select Code to Download

SV * overload_add_eq(SV * obj, SV * addon, SV * third) {
     Card* c = (Card *)SvIV(SvRV(obj));
...
     c->value += SvIV(addon);
     return obj;
}

void overload_add_eq(SV * obj, SV * addon, SV * third) {
     Card* c = (Card *)SvIV(SvRV(obj));
     c->value += SvIV(addon);
}

use warnings;
package My_struct;
...

@members = deref_ref($obj);
print "@members\n";