package TestCase::Callback1 : callback_t {
  sub : int ($self : self, $var1 : int, $var2 : long);
}