1 |
## ------------------------------------------------------------------------- |
2 |
## $Id: Rap.pm,v 1.6 2003/03/29 07:08:56 joko Exp $ |
3 |
## ------------------------------------------------------------------------- |
4 |
## $Log: Rap.pm,v $ |
5 |
## ------------------------------------------------------------------------- |
6 |
|
7 |
|
8 |
package Data::Storage::Result::Hash; |
9 |
|
10 |
use strict; |
11 |
use warnings; |
12 |
|
13 |
use base ("Data::Storage::Result::Abstract"); |
14 |
|
15 |
|
16 |
sub DESTROY { |
17 |
my $self = shift; |
18 |
#$logger->debug( __PACKAGE__ . "->" . "DESTROY" ); |
19 |
#$self->{RESULTHANDLE} && $self->{RESULTHANDLE}->finish(); |
20 |
} |
21 |
|
22 |
sub getNextEntry { |
23 |
my $self = shift; |
24 |
#$self->{RESULTHANDLE} && return $self->{RESULTHANDLE}->fetchrow_hashref; |
25 |
$self->{RESULTHANDLE} && return $self->{RESULTHANDLE}; |
26 |
} |
27 |
|
28 |
sub getStatus_tmp { |
29 |
my $self = shift; |
30 |
my $status = { |
31 |
err => $self->{RESULTHANDLE}->err, |
32 |
errstr => $self->{RESULTHANDLE}->errstr, |
33 |
state => $self->{RESULTHANDLE}->state, |
34 |
}; |
35 |
return $status; |
36 |
} |
37 |
|
38 |
1; |
39 |
__END__ |