Select Code to Download

#!/usr/bin/perl -w
use strict;
...
sub My::Test::Class::Destructor::DESTROY { $called++; };
destroyed_ok($foo4,"Simple class with two references");
is($called,1,"Previous destructor gets called");

package Test::DESTROY;
use strict;
...
    $Test->diag($fail_reason);
  };
};