Help for this page

Select Code to Download


  1. or download this
    use Test::More tests => 1;
use Scalar::Util qw(weaken);
...
    weaken $original;
    ok !defined($original), '$object garbage collected';
}
  2. or download this
    use Test::More tests => 1;
use Scalar::Util qw(weaken);
...
    weaken $original;
    ok defined($original), '$object still accessible';
}
  3. or download this
    {
    package Foo;
...
1..2
# Looks like you failed 1 tests of 2.
really destroying Foo=HASH(0x512f0)