class TestCase::MinimalExtend extends TestCase::Minimal : public {
  
  has z : public rw int;
  
  static method new : TestCase::MinimalExtend () {
    
    my $self = new TestCase::MinimalExtend;
    
    $self->{x} = 0;
    $self->{y} = 0;
    $self->{z} = 0;
    
    return $self;
  }
  
  method clear : void () {
    
    $self->SUPER::clear;
    $self->{z} = 0;
  }
  
  method shared1 : string () {
    return undef;
  }
}