package TestCase::Destructor {
  use TestCase::Minimal;
  
  has minimal : TestCase::Minimal;
  
  sub new : TestCase::Destructor () {
    return new TestCase::Destructor;
  }
  
  sub DESTROY : void ($self : self) {
    $self->{minimal}->{x} = 3;
  }
}