package TestCase::Comparator : callback_t {
  sub : int ($self : self, $x : object, $y : object);
}