3 |
# $Id$ |
# $Id$ |
4 |
# |
# |
5 |
# $Log$ |
# $Log$ |
6 |
|
# Revision 1.5 2003/04/09 02:09:47 joko |
7 |
|
# bugfix: check for existance of '->close'-method before calling it on the 'RESULTHANDLE'-instance |
8 |
|
# |
9 |
|
# Revision 1.4 2003/03/27 15:31:15 joko |
10 |
|
# fixes to modules regarding new namespace(s) below Data::Mungle::* |
11 |
|
# |
12 |
# Revision 1.3 2003/01/31 06:34:49 joko |
# Revision 1.3 2003/01/31 06:34:49 joko |
13 |
# + fixes to 'getNextEntry' and 'getStatus' |
# + fixes to 'getNextEntry' and 'getStatus' |
14 |
# |
# |
29 |
|
|
30 |
use base ("Data::Storage::Result::Abstract"); |
use base ("Data::Storage::Result::Abstract"); |
31 |
use Data::Dumper; |
use Data::Dumper; |
32 |
use Data::Compare::Struct qw( isEmpty ); |
use Data::Mungle::Compare::Struct qw( isEmpty ); |
33 |
|
|
34 |
sub DESTROY { |
sub DESTROY { |
35 |
my $self = shift; |
my $self = shift; |
36 |
#$logger->debug( __PACKAGE__ . "->" . "DESTROY" ); |
#$logger->debug( __PACKAGE__ . "->" . "DESTROY" ); |
37 |
$self->{RESULTHANDLE} && $self->{RESULTHANDLE}->close(); |
$self->{RESULTHANDLE} && $self->{RESULTHANDLE}->can('close') && $self->{RESULTHANDLE}->close(); |
38 |
} |
} |
39 |
|
|
40 |
sub getNextEntry { |
sub getNextEntry { |