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	############################################
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