use overload (
  # this is the cryptic name of the "numification" operator
  '0+' => sub {
    my($self, $other, $swap) = @_;
    return $self->as_number;
  },
);