NAME

Chj::Destructor

SYNOPSIS

use Chj::Destructor;

my $z=0;
{
   my $x= ["foo", Destructor { $z++ }];
}
is $z, 1;

DESCRIPTION

Util to help debug or test memory deallocation.

SEE ALSO

End.pm, but that one does not type-check the destructor argument early, nor does it localize error variables in its DESTROY method.