class TestCase::Issues::Issue645 {
   
  use Hash;
   
  # Class Variables
  our $INSTANCES_H : Hash of TestCase::Issues::Issue645;
   
  INIT {
    $INSTANCES_H = Hash->new;
  }
   
  # Class Methods
  static method test : int () {
     
    my $object = TestCase::Issues::Issue645->new;
     
    return 1;
  }
   
  static method new : TestCase::Issues::Issue645 () {
     
    my $self = new TestCase::Issues::Issue645;
     
    $INSTANCES_H->set(Fn->to_address($self), $self);
     
    $INSTANCES_H->weaken(Fn->to_address($self));
     
    return $self;
  }
   
  method DESTROY : void () {
    $INSTANCES_H->delete(Fn->to_address($self));
  }
   
}