Select Code to Download

if ($obj1->compare($obj2)) {
  # ...
}

use overload '==' => \&compare;

if ($obj1 == $obj2) {
  # ...
}