Help for this page

Select Code to Download


  1. or download this
    
# ... when you call Forsaken_clean
...
# ... and when you call rev_1318_clean
$o3 = $o3->rev_1318_clean;
  2. or download this
       sub Forsaken_clean{
       my $self = shift;
...
       my $self = shift;
       %$self = ();
   }
  3. or download this
       use strict;
   use Data::Dumper; $Data::Dumper::Indent = 1;
...
This is after rev_1318_cleaning: $VAR1 = bless( {}, 'gugus' );
$VAR2 = $VAR1;