Re: How do I make a destructor?

[nite_man]

You can create a descructor like this:

 sub DESTROY{
      my $self = shift;
      $self->coun_decr();
      bless $self, $ISA[0]; 
 }

But before, you should define a object counter and methods for management it:

  my $inst_count = 0;
  sub get_inst_count { $inst_count }
  sub _incr_inst_count { ++$inst_count }
  sub _decr_inst_count { --$inst_count }