use overload
      "-"    => \&minus,
      "+"    => \&plus,
      "*"    => \&mult,
      "bool" => \&bool;

sub bool {
     my $object = shift;
     return !undef($obj);
}