diff options
| author | fukachan <fukachan> | 2005-09-11 13:09:18 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2005-09-11 13:09:18 +0000 |
| commit | 919ecd93d555e1eccf1ab80bf84e77aa7af2deed (patch) | |
| tree | c3b015831e7fa7664073fa7b3b42470ac6ea6610 /fml/lib/Mail/Message/Thread.pm | |
| parent | 5a9831ba2f1fd9cf299af32333f557afb2b4c9a7 (diff) | |
| download | fml8-919ecd93d555e1eccf1ab80bf84e77aa7af2deed.tar.gz fml8-919ecd93d555e1eccf1ab80bf84e77aa7af2deed.tar.bz2 fml8-919ecd93d555e1eccf1ab80bf84e77aa7af2deed.zip | |
define DESTROY()
Diffstat (limited to 'fml/lib/Mail/Message/Thread.pm')
| -rw-r--r-- | fml/lib/Mail/Message/Thread.pm | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/fml/lib/Mail/Message/Thread.pm b/fml/lib/Mail/Message/Thread.pm index 9d328371..12bf902f 100644 --- a/fml/lib/Mail/Message/Thread.pm +++ b/fml/lib/Mail/Message/Thread.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Thread.pm,v 1.7 2005/08/25 13:13:35 fukachan Exp $ +# $FML: Thread.pm,v 1.8 2005/08/25 13:39:45 fukachan Exp $ # package Mail::Message::Thread; @@ -248,6 +248,21 @@ sub get_article_summary } +# Descriptions: destructor. +# Arguments: OBJ($self) +# Side Effects: close db +# Return Value: none +sub DESTROY +{ + my ($self) = @_; + my $db = $self->{ _ndb }; + + if (defined $db) { + $db->DESTROY(); + } +} + + =head1 TODO =head1 CODING STYLE |