sub Forsaken_clean{
       my $self = shift;
       foreach (keys %$self) {
           delete $self->{$_};
       }
       $self;
   }
   sub rev_1318_clean{
       my $self = shift;
       %$self = ();
   }