package My::SuperNumber;
use overload (
  # overload the subtraction operator
  '-' => sub {
    my($self, $other, $swap) = @_;
    my $result = $self->my_super_subtract($other);
    return $swap ? -$result : $result;
  },
);