Help for this page

Select Code to Download


  1. or download this
    use Scalar::Util qw(weaken isweak);
{
...
sub DESTROY { print STDERR "Monitor::TestArray::DESTROY : $_[0]\n"; }

1;
  2. or download this
    @a is not weak
@a is not weak
...
Scope left
Monitor::TestArray::DESTROY : Monitor::TestArray=ARRAY(0x813f2e8)
Monitor::TestArray::DESTROY : Monitor::TestArray=ARRAY(0x813f378)