1 |
joko |
1.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__ |