3 |
# $Id$ |
# $Id$ |
4 |
# |
# |
5 |
# $Log$ |
# $Log$ |
6 |
|
# Revision 1.4 2003/03/27 15:31:15 joko |
7 |
|
# fixes to modules regarding new namespace(s) below Data::Mungle::* |
8 |
|
# |
9 |
# Revision 1.3 2003/01/31 06:34:49 joko |
# Revision 1.3 2003/01/31 06:34:49 joko |
10 |
# + fixes to 'getNextEntry' and 'getStatus' |
# + fixes to 'getNextEntry' and 'getStatus' |
11 |
# |
# |
26 |
|
|
27 |
use base ("Data::Storage::Result::Abstract"); |
use base ("Data::Storage::Result::Abstract"); |
28 |
use Data::Dumper; |
use Data::Dumper; |
29 |
use Data::Compare::Struct qw( isEmpty ); |
use Data::Mungle::Compare::Struct qw( isEmpty ); |
30 |
|
|
31 |
sub DESTROY { |
sub DESTROY { |
32 |
my $self = shift; |
my $self = shift; |