use Test;
BEGIN { plan tests => 6 } ;

for(1..3) {

my $DESTROY ;
sub DESTROY { $DESTROY = 1 }

  $DESTROY = undef ;
  
  my $ref ;
  {
    my $o = bless {} ;
    ok(!$DESTROY) ;
  }
  
  ok($DESTROY) ;
}
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.