Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
package Foo;
sub new { return bless {}, shift }
sub DESTROY { warn("Foo::DESTROY\n") }
  2. or download this
    1: Foo=HASH(0x80f6084)
2: Foo=HASH(0x813b750)
...
Foo::DESTROY
Foo::DESTROY
Foo::DESTROY
  3. or download this
    1: Foo=HASH(0x81981f8)
Foo::DESTROY
...
3: Foo=HASH(0x81981f8)
Foo::DESTROY
interpreter exit