Storage/Result/Hash.pm

## -------------------------------------------------------------------------
##  $Id: Rap.pm,v 1.6 2003/03/29 07:08:56 joko Exp $
## -------------------------------------------------------------------------
##  $Log: Rap.pm,v $
## -------------------------------------------------------------------------


package Data::Storage::Result::Hash;

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;
  $self->{RESULTHANDLE} && return $self->{RESULTHANDLE};
}

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

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