Select Code to Download

package My::SuperNumber;
use overload (
...
    return $swap ? -$result : $result;
  },
);

use overload (
  # this is the cryptic name of the "numification" operator
...
    return $self->as_number;
  },
);

use overload (
  # this is the cryptic name of the "stringification" operator
...
    RETVAL = my_stringify(left);
  OUTPUT:
    RETVAL

sub as_string {
  my($obj) = @_;
...
      unless overload::Method($obj, '""');
  return "$obj";
}

sub as_string {
  my($obj) = @_;
...
  # RIGHT
  return $method->($obj, undef, 0);
}