examples/obfu/random_operator_overloading.pl

   1 # This is a *evil* example of random operator overloading.
   2
   3 use v6;
   4
   5 my $op;
   6 BEGIN {
   7   # At compilation time, we randomly pick a op to be overloaded.
   8   $op = pick <+ - * />;
   9 }
  10
  11 sub infix:{$op} { 42 }
  12
  13 # Now one of +-*/ will return 42, the other ops will continue to work as
  14 # normal.
  15 say "1 + 1 = {1 + 1}";
  16 say "1 * 1 = {1 * 1}";
  17 say "1 / 1 = {1 / 1}";
  18 say "1 - 1 = {1 - 1}";