package TestCase::Minimal::XGetter {
  sub new : TestCase::Minimal::XGetter () {
    return new TestCase::Minimal::XGetter;
  }
  sub : int ($self : self, $obj : object) {
    my $minimal = (TestCase::Minimal)$obj;
    
    return $minimal->x;
  }
}