sub clean_up { my $self = shift; if ( $self->{Lock} ) { # # the code to release the lock # $self->{Lock} = 0; } } sub DESTROY { my $self = shift; $self->clean_up(); }
In reply to Re: Re: Re: Re: Re: explicitly calling destructor
by LanceDeeply
in thread explicitly calling destructor
by mla
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |