Help for this page

Select Code to Download


  1. or download this
    $perldata = bless {hello => 'world'}, 'superman';
$bar = test($perldata);
...
    my $self = shift;
    warn $self->{perldata};
}
  2. or download this
    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)