Help for this page
# ... when you call Forsaken_clean ... # ... and when you call rev_1318_clean $o3 = $o3->rev_1318_clean;
sub Forsaken_clean{ my $self = shift; ... my $self = shift; %$self = (); }
use strict; use Data::Dumper; $Data::Dumper::Indent = 1; ... This is after rev_1318_cleaning: $VAR1 = bless( {}, 'gugus' ); $VAR2 = $VAR1;
www.com | www.net | www.org
No recent polls found