adding deconstructors

This commit is contained in:
JT Smith 2006-01-13 17:53:53 +00:00
parent 20d259dd0d
commit 970eeb048a
3 changed files with 46 additions and 5 deletions

View file

@ -274,6 +274,21 @@ sub deleteRow {
}
#-------------------------------------------------------------------
=head DESTROY ( )
Deconstructor.
=cut
sub DESTROY {
my $self = shift;
$self->disconnect;
undef $self;
}
#-------------------------------------------------------------------
=head2 disconnect ( )