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