++ed by:
JGAMBLE RPAVLOV

2 PAUSE users
1 non-PAUSE user.

Christian Jaeger
and 1 contributors

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.