Help for this page

Select Code to Download


  1. or download this
    sub Foo::DESTROY { my $self = shift; print "destroying $self\n" };
my $foo = bless {}, "Foo";
$foo->DESTROY;
print "foo is $foo\n";
  2. or download this
    destroying Foo=HASH(0x4759c)
foo is Foo=HASH(0x4759c)
destroying Foo=HASH(0x4759c)