package TestCase::Callback::ImplementCallback1 {
  use TestCase::Minimal;

  sub new : TestCase::Callback::ImplementCallback1 () {
    return new TestCase::Callback::ImplementCallback1;
  }
  
  sub : int ($self : self, $var1 : int, $var2 : long) {
    return 1;
  }
}