package Quux;
use overload '0+' => sub { (${$_[0]} *= -1) += 1 }, fallback => 1;
my $x=0;
bless \$x