Select Code to Download

void overload_inc($V * object, SV * second, SV * switch) {
   /* code that adds 1 to the value held by object */ 
}

void overload_plus_eq(SV * object, SV * addon, SV * switch) {
   /*code that adds the value of addon to the value held by object */
}

D:\>perl -Mwarnings -Moverload -e "use overload 'fu' => sub {return 1}
+;"
overload arg 'fu' is invalid at -e line 1.
...
D:\>perl -Mwarnings -Moverload -e "use overload '&.=' => sub {return 1
+};"

D:\>