package TestCase::ImplementInterface1 {
  use TestCase::Minimal;
  
  sub foo : int ($self : self, $var1 : int, $var2 : long) {
    return 1;
  }
  sub bar : TestCase::Minimal ($self : self, $var1 : TestCase::Minimal, $var2 : Object) {
    return undef;
  }
  
  sub baz : int ($self : self) {
    return 1;
  }
}