1 |
############################################ |
2 |
# |
3 |
# $Id$ |
4 |
# |
5 |
# $Log$ |
6 |
# |
7 |
############################################ |
8 |
|
9 |
package Data::Storage::Result::DBI; |
10 |
|
11 |
use strict; |
12 |
use warnings; |
13 |
|
14 |
use base ("Data::Storage::Result::Abstract"); |
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 |
} |
26 |
|
27 |
sub getStatus { |
28 |
my $self = shift; |
29 |
my $status = { |
30 |
err => $self->{RESULTHANDLE}->err, |
31 |
errstr => $self->{RESULTHANDLE}->errstr, |
32 |
state => $self->{RESULTHANDLE}->state, |
33 |
}; |
34 |
return $status; |
35 |
} |
36 |
|
37 |
1; |