Help for this page
$perldata = bless {hello => 'world'}, 'superman'; $bar = test($perldata); ... my $self = shift; warn $self->{perldata}; }
superman=HASH(0x182b3dc) at noname2.pl line 18. test: superman=HASH(0x182b3dc) ... Warning: something's wrong at noname2.pl line 18 during global destruc +tion. test: superman=HASH(0x182b3dc) test: superman=HASH(0x182b3dc)