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

@ -173,6 +173,20 @@ sub deleteFromGroups {
$group->deleteUsers([$self->userId],$groups);
}
#-------------------------------------------------------------------
=head DESTROY ( )
Deconstructor.
=cut
sub DESTROY {
my $self = shift;
undef $self;
}
#-------------------------------------------------------------------
=head2 getGroups ( [ withoutExpired ] )