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