Storage/Result/DBI.pm

############################################
#
#  $Id$
#
#  $Log$
#
############################################

package Data::Storage::Result::DBI;

use strict;
use warnings;

use base ("Data::Storage::Result::Abstract");

sub DESTROY {
  my $self = shift;
  #$logger->debug( __PACKAGE__ . "->" . "DESTROY" );
  $self->{RESULTHANDLE} && $self->{RESULTHANDLE}->finish();
}

sub getNextEntry {
  my $self = shift;
  $self->{RESULTHANDLE} && return $self->{RESULTHANDLE}->fetchrow_hashref;
}

sub getStatus {
  my $self = shift;
  my $status = {
    err => $self->{RESULTHANDLE}->err,
    errstr => $self->{RESULTHANDLE}->errstr,
    state => $self->{RESULTHANDLE}->state,
  };
  return $status;
}

1;
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;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26