class TestCase::Minimal::XGetter {
static method new : TestCase::Minimal::XGetter () {
return new TestCase::Minimal::XGetter;
}
method : int ($obj : object) {
my $minimal = (TestCase::Minimal)$obj;
return $minimal->x;
}
}
class TestCase::Minimal::XGetter {
static method new : TestCase::Minimal::XGetter () {
return new TestCase::Minimal::XGetter;
}
method : int ($obj : object) {
my $minimal = (TestCase::Minimal)$obj;
return $minimal->x;
}
}