adding deconstructors
This commit is contained in:
parent
20d259dd0d
commit
970eeb048a
3 changed files with 46 additions and 5 deletions
|
|
@ -274,6 +274,21 @@ sub deleteRow {
|
|||
}
|
||||
|
||||
|
||||
#-------------------------------------------------------------------
|
||||
|
||||
=head DESTROY ( )
|
||||
|
||||
Deconstructor.
|
||||
|
||||
=cut
|
||||
|
||||
sub DESTROY {
|
||||
my $self = shift;
|
||||
$self->disconnect;
|
||||
undef $self;
|
||||
}
|
||||
|
||||
|
||||
#-------------------------------------------------------------------
|
||||
|
||||
=head2 disconnect ( )
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue